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TEXT EDITING SYSTEM 


INTRODUCTION 

Contained In the following pages Is a complete description and source 
listing of the TSC Text Editing System: This system is a content oriented 
text editor which is powerful, simple to use, and easy to learn. Particu¬ 
lar attention should be paid to the section titled "Adapting to Your System 

As In all TSC software, a great effort has been put forth In testing 
to eliminate "bugs" in the code. This however Is no guarantee of perfect 
code. If a suspected bug is spotted, please jot down the circumstances 
involved and send it to TSC. Errata sheets with all patches will be sent 
to owners if necessary. 

GETTING THE SYSTEM STARTED 

After all of the code has been entered, and all of the adaptations to 
your system have been made, start executing the program at location 200 hex 
The system should respond with: 

NEW file: 

1.00 = 


The system is now ready to accept the text file input from the keyboard. 

If the editor is left and later it is desirable to reenter the editor to 
work on the previous text file, it is necessary to enter at location 203 
hex, otherwise all workspace will be cleared. If a system containing 
MIKBUG® is used this "restart" address will automatically be used on a "G" 
command. 
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MINI-TUTORIAL 

The purpose of this section is to briefly introduce the reader to the 
use of the TSC Text Editing System. We will, therefore. Illustrate Its 
use with a number of examples. In order to make It more obvious what 
things are typed by the user and what things are displayed by the editor, 
we will subscribe to the convention that things underlined are user-typed 
and things not underlined are displayed by the editor. 

When the editor is initially entered, the response is as shown above. 
At this time we will create our file by simply typing all lines until 
finished, terminating each line with a "carriage return". 


1,00 = TUTfi IS AN FXAMPLE O F THE FANTASTICALLY USEFUL 
2.00 = TSR TEXT EDITING SYSTEM♦ A NUMBER O F 
3.00 EXAMPLES WILL BE SHOWN TO ALLOW EA SY ftttl! 

-4,00 = nUICK LEARNING OF ITS FEATURES♦ 

5,00 ^ FOLLOWING ARE SOME NONSENSE LINES* 

6.00 = ABCDEFGHIJKL 

7.00 = AAAAAAAA 

8.00 ^ TESTING 1234 

9.00 = THIS EDITOR IS FUN TO USE! 

10.00 = BBBBBBBB 

11.00 = 

12.00 = THIS IS THE END OF THIS FILE? 

13.00 = AT LEAST FOR NOfeh 

14.00 =* 

13.00 =AT LEAST FOR NOW. 


Notice it was necessary to type a pound sign (#) In column one to leave 
the buffered input mode. At this time, the system printed the last line 
and returned with the system prompt (a pound sign). The editor Is now 
ready to accept commands. 

Any time characters are being typed into the editor the following two 
characters have special meaning: 

1. "control" H - Deletes the last character typed (backspace). 

2. "control" X - Deletes entire current line being typed. 

These are useful, when detected typing errors occur, for Immediate correction. 

Each line of text in the edit file is given or has a line number which 
Is used by the editor to uniquely identify the line. Each line number is 
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of the form "m.nn" where "m" is an integer and "n" represents any of the 
digits 0 through 9. To specify a line number, one has to specify only that 
portion of the line number to identify It uniquely. For example, 73, 73*, 
73.0, and 73.00 may be used to refer to line 73.00; 259.6 refers to line 
259.60. The largest line number used with the editor Is 9999.99. Let's 
denote a specification of a line of text by the symbol "<l!ne>". We will 
be using this symbol throughout this document. 

An editor command tells the editor what action Is to be performed and 
usually what line or block of lines are to be affected (If any). For each 
editing facility supported by the editor, there Is a directive which Is 
used in commands to indicate the desired action. For example, the editor 
can delete lines of text from a file, insert 1fnes of text into the file, 
print lines contained in the file, and so on. Corresponding to each 
capability there is a directive; hence, there is a Delete directive, an 
Insert directive, a Print directive, and so on. If we define the symbol 
<direct?ve> to mean any editor directive, the basic from of an edit command 
is 

<1ine><directive> 

For example, the command to display (Print) line 12.00 is 

*12_P 

12.00 =THIS IS THE END OF THIS FILE* 

♦ 

where "12" is the <line> specification and "P" is the <directlve> In this 
command. As can be seen in the example, this causes line number 12 to 
be printed on the terminal. 

Nov* let's learn how to use the Insert directive. In normal usage of 
the word "insert" we say something like, " Insert this card after this other 
card." To use the Insert directive, we specify the line after which we 
want to insert new lines followed by an I: 

<1ine>l 

After typing the directive followed by a carriage return, the editor will 
select an appropriate line number and prompt for input by displaying the 
line number followed by an equal sign. After each line of text is entered 
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and the carriage return Is typed, the editor will prompt for the next line. 

To exit from the "Insert mode" one simply types a pound sign followed by 
an edit directive In response to a new line prompt. 

Some examples of the use of Insert are 

*81 

8.10 = THIS IS AN INSERTED LINE. 

8.20 = S0 IS THIS. 

8.30 MU I 

11.10 ^ ANOTHER INSERTED LINE. 

11.20 = *6_P 

6.00 =ABCDEFGHI JKl. 

It should be noted that the editor may renumber some lines following 
the Inserted text. This occurs when enough lines are Inserted such that 
the Inserted line numbers overlap line numbers in the original text. 

Next, let's learn how to use the Delete directive. With this directive 
we can delete one line or a block of lines with one directive. To delete 
only one line, we specify the <line> to be deleted followed by a D: 

<1ine>D 

When the carriage return Is typed, the line disappears. 

To delete more than one line we need to indicate not only the first 
line to delete but also the last line to be deleted. Let's call the last 
line the "target" line and denote Its specification as "<target>". Although 
the editor supports fancier ways to specify the <target>, we'll Just con¬ 
sider the two simplest: (1) <target> may be the number of lines to be 
deleted (counting both the first and last line of the block), or (2) <target> 
may be a pound sign followed Immediately by the line number of the last 
line of the block to be deleted. Some example <target>s are: 3 (delete 
three lines), 26 (delete 26 lines), and #26 (delete lines through line 
26 . 00 ). 

The syntax to Delete a block of lines Is 

<line>D <target> 

where <llne> indicates the first line to delete and <target> Indicates the 
scope of the delete. 

To Illustrate the use of the Delete directive, let's assume we have a 
file containing 53 lines with integer line numbers (1.6., 1, 2, 3» »«•» 53). 
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With the directives 

m so 

mb d #31 

#52D 2 

BOTTOM OF FILE REACHED 

if 

we now have a file with lines 1 through 1*», 16 through 23 , and 32 through 
51. The first directive deleted line 15. The second directive deleted 
lines 24 through 31. The third directive deleted two lines starting with 
line 52. Since it deleted the last line of the file, the editor dis¬ 
played the message "BOTTOM OF FILE REACHED." 

Before we discuss any more directives, we need to expand the definitions 
of <line> and <target>. 

As editing operations are performed, the editor keeps track of the 
"current line" which usually is the line most recently affected by a 
successful edit directive. Upon entering the editor, the "current line" 
is the first line of the file. If, for example, we have just inserted 
three lines between lines 12.00 and 13.00, the current line will be 12.30. 

One should note that after a line or a block of lines have been Deleted, 
the line immediately following the last one deleted is made the current 
line (if the last line of the file was deleted, the new last line of the 
file will be the current line). 

In our discussions above, we have implied that one has to explicitly 
indicate a <1ine> for each directive by specifying the line number of the 
line of Interest. However, if <1ine> is not specified In a directive, the 
"current line" is used. For example, if one enters the directive 

♦ D 2 

* 

the editor will delete two lines starting with the current line. In our 
example, since we were at line 6.00, the "D2" operation deleted lines 6.00 
and 7*00. As you will learn to appreciate, the "current line" default for 
line is extremely handy. 
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After performing all of the above operations, our file now looks like 


this: 


1.00 

2.00 

3.00 

4.00 

5.00 

8.00 

8.10 

8.20 

9.00 

10.00 

11.00 

11.10 

12.00 

13.00 


AND 


=THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
=TSC TEXT EDITING SYSTEM. A NUMBER OF 
=EXAMPl.ES WILL BE SHOWN TO ALLOW EASY 
=0111CK LEARNING OF ITS FEATURES. 

=F0LL0WING ARE SOME NONSENSE LINES * 

=TESTING 1234 

=THIS IS AN INSERTED LINE. 

=S0 IS THIS. 

=THIS EDITOR IS FUN TO USE! 

=BBBBBBBB 

=ANOTHER INSERTED LINE. 

= THIS IS THE END OF THIS FIl.E» 

=AT LEAST FOR NOW. 


We have seen that <line> may be specified by a line number or by 
default to the current line. There are also several other ways to specify 
<line>, or in other words, to move the pointer to a desired line prior 
to the execution of an edit directive. One may also specify <line> with a 
"+n" or "-n" (where n^ is an Integer) meaning the next nth line In the file 
or the nth previous line in the file, respectively. Two other useful 
<1ine> designators are "+" ("-" on some terminals) and (I on some 
terminals). The up arror is used to designate the top or first line 
in the file. The down arrow "+" Is used to move to the last line or bottom 
of file. These various <llne> specifiers are shown in the example below 
with the PRINT directive. 

*"* 1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 

#+3 P 

4.00 “QUICK LEARNING OF ITS FEATURES. 

#! P 

13.00 =AT LEAST FOR NOW. 

#-2P 

11.10 “ANOTHER INSERTED LINE. 

* 

There may be times while editing a file when we know part of the con¬ 
tents of a line of interest but don't know its line number nor Its dis¬ 
placement from the current line, in such a case we can use the "content- 
oriented" feature of the editor to find it. The syntax to specify <1ine> 


( 


i, 

1 
* i 

•a 


C 
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in this way is 

/<string>/ 

where "/" is a character to delimit (enclose) the <string> which is a 
sequence of characters known to be in the line. When <llne> is specified 
as "/<string>/", the editor will search for the current line through the 
file to find the next line containing the specified <strlng>. Some examples 
will help to clarify this: (1) /PRINT/ denotes the next line containing 
the character string "PRINT", and (2) /GO TO 35/ refers to the next line 
containing "GO TO 35". If the <strlng> is found In any subsequent line of 
the file, that line will be made the current line and the requested edit 
operation will be performed on it. If the <string> does not occur anywhere 
subsequent in the file, the editor will issue the message "NO SUCH LINE" 
and will not change the current line pointer. Note that the delimiter does 
not need to be a slash; it may be some other character such as a quote (') 
or a comma. For example, 1 A/B' refers to the next line containing "A/B". 

It is also possible to prefix the string designator with (minus 
sign) to indicate a previous line containing that string. A few examples 
with our TEST FILE will show the use of "/<string>/" as a <line> designator. 

♦ -/QUICK/P 

4.00 =QUICK LEARNING OF ITS FEATURES. 

♦ ?123> P 

8.00 =TESTING 1234 

♦ + / END / F' 

12.00 =THIS IS THE END OF THIS FILEr 

* 

To summarize, we have seen that <1ine> may be specified a number of 
ways, namely: (1) by default to the current line, (2) by typing a line 
number, (3) by "+n" denoting the nth subsequent line, (k) by "-n" referring 
to the nth previous line, (5) by /<string>/ denoting the next line in the 
file containing the indicated string of characters, (6) "~/<strIng>/" 
to denote the nearest previous line containing the specified character 
string, (7) (" A " on some terminals) to denote the first line of the 

file, and (8) ("I" on some terminals) to denote the last line of the 

file. 

Now lets turn our attention to expanding the definition of <target>. 

As you may recall, a <target> is used in some directives to Indicate the 








8 


number of lines to be affected by the edit operation. We have already seen 
that a <target> may be specified by (1) an Integer "n" Indicating the 
number of lines to be affected, as P3, meaning print 3. lines, and (2) a 
line number preceded by a pound sign (#) Indicating the line number of the 
last line to be affected, as P #6, meaning print all lines to and includ¬ 
ing line #6. The <target> is simply a designator telling how many lines 
the edit directive should operate on. In addition to the two mentioned 
forms of <target>, we also have, (3) If no <target> Is specif led in a command 
whose syntax includes one, a <target> of I is assumed, thereby affecting 
only one line. As with <line>, one may specify <target> by (*♦) "/<strlng>/" 
which indicates the next line in the file containing the specified character 
string, (5) to denote the top line in the file, and (6) "+" to denote 
the bottom line in the file. A minus sign may be used to indicate that 
processing is to proceed backward through the file in the following two 

cases: (7) "-n" and (8) "-/<string>/". 

With an understanding of <line> and <target> we can now discuss some 
more directives. The Print directive is used to display a line or a 
group of lines. Its syntax is 

<1lne>P <target> 

where "<line>" and "<target>" may be specified in any of the ways discussed 
above. To print just one line one needs to specify only <llne> followed 
by a carriage return; therefore, the following two directives perform 
the same thing: 

<1Ine>P 

and 

<1ine> 

Going back to our test file, we can illustrate the various forms of 
<target> as used with the Print directive. 




( 



*2E 

2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 

*zl 

1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
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* P /EASY/ 

1.00 =7HIS IS AN EXAMPLE OP THE FANTASTICALLY USEFUL 
2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 
3.00 -EXAMPLES WILL BE SHOWN TO ALLOW EASY AND 
♦ ! P -3 

13.00 =AT LEAST FOR NOW. 

12.00 =THIS IS THE END OF THIS FILE * 

11.10 -ANOTHER INSERTED LINE. 

♦ -/BBB/ P -/123/ 

10.00 =BBBBBBBB 

9.00 =THIS EDITOR IS FUN TO USE! 

8.20 =S0 IS THIS. 

8.10 =THIS IS AN INSERTED LINE. 

8.00 =TESTING 1234 

♦ 12P! 

12.00 =THIS IS THE END OF THIS FILE r 
13.00 =AT LEAST FOR NOW. 

* 


The first directive displayed line 2.00 and made that line the 
current line. The second directive requested that the line immediately 
preceding the current line be displayed. The third directive displayed 
the block of lines from the current line down through the line containing 
the character string "EASY". The fourth directive printed 3 lines start¬ 
ing at the bottom of the file and ending at line 11.10, which became the 
current line. The fifth directive requested the previous line containing 
the character string "BBB" be found, and then starting with that line, 
display all lines going backwards through the file until a line containing 
the character string "123" has been displayed. This shows the extreme 
usefulness and power of the content-oriented characteristic of the editor. 
The last directive requested that all lines from line 12.00 to the end or 
bottom of file be displayed. 

The next directive to discuss is Next which is used primarily to move 
the current line pointer. Although it may be used otherwise, usually It Is 
used only with the default <line>. Its syntax Is 

N <target> 

This directive finds the line indicated by target , displays It, and makes 
it the current line. A few examples will illustrate its use. 
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*2E 

1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 

*R 

2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 

♦ N 6 

8.20 =S0 IS THIS. 

♦ N -2 

8.00 =TESTING 1234 

* 

The following directive performs single-line replacements or Inserts. 
Its syntax is 



<1ine> B <text> 


where "<line>" specifies the number of the line to be replaced or inserted 
and may, of course, default to the current line. "<text>" is the text to 
comprise the line. To illustrate this directive, let's continue our ^ 

example series. 


» =REPLACE CURRENT LINE HERE 
* 5.25=THIS LINE CREATED WITH ’EQUALS*.. 

* 


The first directive changed the contents of line 8.00, the current line. 
The second example inserted a line with the line number 5.25. 

The next directive to be discussed is the Change directive. It Is 
used to change occurrences of one character string into another. Its 
syntax is 

<1 ine>C /<string>i/<string> 2 / <target> <occurrence> 



where "/" is a delimiter character to separate the two character strings; 
"<string>i" is the character string to be replaced; "<strlng> 2 " is the 
string of characters to replace them; "<target>" specifies the range of the 
changes; and "<occurrence>" specifies which occurrence(s) of <string>x 
should be replaced in the line(s). If <occurrence> Is 1 or Is not specified, 
then only the first occurrence of <string>i in any line of the block will 
be changed—the second or subsequent occurrence of the string in such a 
line will not be affected. If 2 is specified for <occurrence>, then only 
the second occurrence of <string>i In any line of the block will be changed. 
To change all occurrences of the indicated string in the block, use an 


( 
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asterisk (*) for <occurrence>. Let's illustrate the Change directive by 
continuing our example. 


♦ 4C /QUICK/FAST/ 

4.00 “FAST LEARNING OF ITS FEATURES. 

* 8.1 C /THIS IS // 

8. 10=AN INSERTED LINE. 

♦ -5C ? A ? $ > ? SOME i * 

3.00 “EXAMPLES WILL BE SHOWN TO $LLOW E$SY $ND 
4.00 =F$ST LE$RNING OF ITS FEATURES. 

5.00 =FOL.LOWING $RE SOME NONSENSE LINES* 

* 12 C /£/?/ -2 3 

12.00 =THIS IS THE END OF THIS FIL?, 

11.10 =ANOTHER INSERT7D LINE. 


The first example replaced the string "QUICK" with the string "FAST" 
in line 4.00. The second example deleted the string "THIS IS" and a 
blank from line 8.10. The third example starts at the fifth previous 
line (line 3-00) and changes every occurrence of "A" to "$" down through 
all lines until the line containing the character string "SOME" (line 5-00) 
is reached. The last example changes the third occurrence of "E" to "?" 
in line 12.00 and then in line 11.10. 

The last directive to be discussed is used to exit from the editor. 

This can be done several different ways: STOP, S, or LOG. This will return 
you to your system monitor. 

Now lets go back to our test file and illustrate some of the features 
and directives we have discussed. 


1.00 “THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 
3.00 =EX$MFL.ES WILL BE SHOWN TO *LL0W E*SY *ND 
4.00 =F*ST LEARNING OF ITS FEATURES. 

5.00 =F0LLOWING $RE SOME NONSENSE LINES! 

5.25 =THIS LINE CREATED WITH ’EQUALS’. 

8.00 “REPLACE CURRENT LINE HERE 
8.10 =AN INSERTED LINE. 

8.20 =S0 IS THIS. 
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' jSrf".. 


9.00 = T HIS EDITOR IS FUN TO USE! 

10.00 =BBBBBBBB 
11.00 = 

11.10 --ANOTHER INSERTTD LINE. 

12.00 =THIS IS THE END OF THIS FIL?» 

13.00 =AT LEAST FOR NOW. 

♦ 2C/C /C 6800 / 

2.00 =TSC 6800 TEXT EDITING SYSTEM. A NUMBER OF 
♦ /BBB/ 

10.00 =BBBBBBBB 

♦ -? THIS IS? C 'E'XX' ! 

1.00 =THIS IS AN XXXAMPLE OF THE FANTASTICALLY USEFUL 
2.00 =TSC 6800 TXXXT EDITING SYSTEM. A NUMBER OF 
3.00 =XXX*MPLES WILL BE SHOWN TO *LLOW E$SY *ND 
4.00 =F*ST LXX$RNING OF ITS FEATURES. 

5.00 ^FOLLOWING $RXX SOME NONSENSE LINES. 

5.25 =THIS LINXX CREATED WITH ‘EQUALS*. 

8.00 =RXXPLACE CURRENT LINE HERE 

8.10 =AN INSXXRTED LINE. 

9.00 =THIS XXDITOR IS FUN TO USE! 

11.10 =ANOTHXXR INSERTTD LINE. 

12.00 =THIS IS THXX END OF THIS FIL ?t 
13.00 =AT LXXAST FOR NOW. 

♦ N -A 

10.00 =BBBBBBBB 

♦ -1 I 

9.10 =TEST-TEST-TEST 
9.20 =1234567890 
9.30 =*D! 

BOTTOM OF FILE REACHED 

♦ ~D! 

BOTTOM OF FILE REACHED 

*r£j 

#£ 


The previous tutorial has been only a brief introduction to the TSC 
Text Editing System. The remainder of this manual contains a detailed 
description of each directive with examples, in the next section, followed 
by "How to Use Tape" and "Adapting to Your System". It Is important to 
read and study the entire manual in order to fully understand and 
utilize all of the power and features of this editor. The source listing 
is the last section. 
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EDITOR DIRECTIVES 

There are five groups of editor directives: environment directives, 
system directives, "current line" movers, edit directives, and tape 
directives. A complete description of all directives In each group Is 
given below. In the following descriptions, quantities enclosed In square 
brackets ([...]) are optional, and may be omitted. Vertlcle lines (|) 
separate options. 

Several of the editor directives use character strings as arguments. 

These arguments are either matched against strings In the text, or replace 
a string in the text. A string argument begins after a delimiter character 
and continues as a sequence of any legal characters until the delimiter Is 
again encountered. The delimiters are not considered part of the string 
to be used In the matching or replacement operations. Although the delimiters 
In the following descriptions are frequently represented as slashes, "/", 
any legal non-blank, non-alphanumer?c character may be used as the delimiter 
such as: */()$“,.=[]:' etc. Note that the following characters 
may not be used to enclose strings unless they are preceded by either a 
plus (+) or minus (-) sign: (denotes first line of file), "+" (denotes 

last line of file), "-" (denotes target Is above current line), and the 
character denoted by LINO (normally a pound sign) which Is used to flag 
line numbers. The delimiter character Is redefined In each new request by 
Its appearance before a string. If two strings exist In one directive (as 
In the Change directive), the same delimiter character must be used for each 
string. 

All of the editor directives use the <llne> Information preceedlng the 
directive to position the pointer prior to any directive action. The <1lne> 
parameter may of course be null, meaning leave the pointer at Its current 
position. All of the following are valid <llne> designators: 


1. Any number 

references a specific line number 

2. +n 

denoting the nth subsequent line 

3. -n 

denoting the nth previous line 

4. /<str!ng>/ 

referring to the next line In 
the file containing the tndlcated 


string of characters 
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5. 

-/<strlng>/ 


references a previous line containing 
the indicated string 

6 . 

+ (~ on some 

terminals) 

denotes the first line of the file 

7. 

+ (1 on some 

terminals) 

denotes the last line of the file 

8. 

nul 1 


stay at current 1ine 



Many of the editor directives require <target> Information. This tells 
the editor to operate on the "current" line and all other lines In the file 
up to the line referenced by the <target>. In cases where a <target> Is 
required, leaving It null will make the <target> default to 1, meaning only 
the current line will be affected by the directive. All of the following 
are valid <target> designators: 


1. an Integer n 

indicates that n_ lines should be 
affected by the edit operation 

2. #n 

denotes the line number of the 
last line to be affected 

3. /<string>/ 

denotes the next line in the file 
containing the specified character 
string 

k. -/<strlng>/ 

references a previous line con¬ 
taining the indicated string 

5. + 

denotes all lines up to the top of 
the file 

6. + 

» 

references all lines down to the 
bottom or last line of the file 

7. ±n_ 

Indicates that n^ lines should be 
affected and in which direction 
from the current line 

8. (null) 

defaults to 1 and only the current 
line is affected 


As we have seen, the form <target> Is used to specify a range of lines 
to which the directive will apply. The directive will be applied to each 
line, starting with the line specified by <line> and continuing until the 
target Is reached. 

If a string <target> Is specified, the directive will apply to 
successive lines of text unttl a line containing the string Is reached. 
Processing proceeds downward in the file unless the target Is preceded by 
a "-" (minus sign), Indicating that processing Is to occur upward (toward 
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the first line) in the file. Targets may also be preceded by a plus sign 
(indicating downward movement). If a line number target Is specified, 
processing begins at <1Ine> and proceeds toward the target line number. 

Some examples of <target>s are 

2 

+10 

-3 

/STRING/ 

+/STRING TARGET/ 

-/BACKWARD DISPLACEMENT TO A STRING/ 

+*ANY DELIMITER WILL WORK FOR STRING* 

++EVEN PLUS SIGNS WILL W0RK+ 

#23.000 

Any "/<strlng>/" descriptor may be postflxed with a column number 
immediately after the delimiter which Indicates that the preceding string 
must begin In the column specified to be found. If the column specified is 
not In the range of the ZONE in effect, the request will be ignored. Some 
examples are 

/I DENT/II 
/PROGRAM/77 
*LABEL*2 
.COMMENT.30 

Environment Directives 

H[EADER] <columns> 

MEANING: 

A line of <columns> headings will be displayed. The heading ts 
of the form "123^56789012..." to Indicate the column number. 
Columns for which tab stops are set will contain a minus character 
instead of the normal digit. If a column count Is given. It 
becomes the default count such that if Just "H" Is typed after¬ 
wards, that number of columns will be printed. 


I 






EXAMPLES: 


HEADER 72 

Display column number headings for 
72 columns. 

H 30 

Display column numbers for 30 
columns. 

NUMBERS] [0FF|0N] 

MEANING: 



The line number flag Is turned off or on. If the flag Is off, 
then line numbers will never be printed. If neither "OFF" nor 
"ON" Is specified, then the flag will be toggled from Its current 


state. 


EXAMPLES: 


NUMBERS OFF 

Turn line number printing off. 

NU ON 

Turn It back on. 

f 

NU 

Toggle from "on" to "off" or from 
"off" to "on". 

REN[UMBER] 


MEANING: 



The "renumber" directive will renumber all of the lines in the 
current edit file. Lines In the renumbered file will start with 
line number "1.00" and will have an Increment of "1.00". The 
line which was "current" before the command will still be the 
current line after the command (although Its number will probably 


have been changed). 


EXAMPLES: 


RENUMBER 

Renumber the lines In the current 
working file. 

REN 

• a. ' *;• v v 


SET <name> * '<char>' 


MEANING: 



SET Is used to define certain special characters or symbols. The 
<name>s which may be set are: 

TAB - the tab character, 

FILL - the tab fill character, 
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EOL - the end of line character which may be used to separate 
several commands on a single line. 

LINO - the line number flag character which Is used to Indicate 
that a target is a specific line number. 


The default values are: TAB and EOL are "null". 

FILL Is "space" 

LINO is 


EXAMPLES: 

SET TAB = ':' 
SET TAB - " 

SET FILL « ' ' 

SET EOL « '$' 
SET LINO - 


Set the tab character to semicolon. 

Disable tabbing by setting the tab 
character to null. 

Set the tab fill character to a 
blank. 

Set the EOL character to $. 

Set the line number target escape 


TAB [<columns>] 

MEANING: 

Used to set the tab stops. All previous tab stops are cleared. 

If no columns are specified then the only action Is to clear all 
tab settings. Any TAB characters occurring beyond the last tab 
stop are left In the text. The maximum number of TAB stops 
allowed is 20. 

EXAMPLES: 

TAB 11, 18, 30 Set tab stops at columns 11, 18, 

and 30. 

TAB 7 72 Set tab stops for a FORTRAN program. 

TAB Clear all tab stops. 

VfERIFY] [0FF|0N] 

MEANING: 

The verify flag Is turned "on" or "off". The verify flag Is 
used by the directives "CHANGE", and "NEXT" (and several others) 
to display their results. If neither "ON" nor "OFF" is specified, 
then the flag will be toggled from its current state. 

EXAMPLES: 

VERIFY OFF Turn verification off. 

V ON Turn it back on. 
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X 

MEANING: 

"X" Is the cursor control command. Any time this command Is 
entered, the editor will issue the 6 special character string 
previously set up. See "Adapting to your System" for details. 
EXAMPLES: 

X Output cursor control string. 

Z[0NE] [Cl, C2] 

MEANING: 

ZONE Is used to restrict all sub-string searches (FIND, CHANGE, 
<target>s, etc.) to columns "Cl" to "C2" Inclusive. Any substrings 
beginning outside those columns will not be detected, if Cl and 
C2 are not specified, then the zones will be Peset to their 
defaults (columns 1 and 136). 

EXAMPLES: 

ZONE 11, 29 Restrict searches to columns 11 

through 29. 

ZONE Search columns 1 through 136. 

System Directives 

LOG 

MEANING: 

Exit the editor. 

EXAMPLES: 

LOG 

S[TOP 3 

MEANING: 

Same as "LOG". 

EXAMPLES: 

STOP 

S 

"Current Line" Movers 

B[0TT0M] 

MEANING: 

Move to the last line in the file and make it the current line. 
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EXAMPLES: 

BOTTOM 

B 


Make the last line of the file the 
current 1Ine. 


F[IND] <target> [<occurrence>] 
MEANING: 


Move the current line pointer to the line specified by <target> 
and make it the current line. If the VERIFY flag (see VERIFY) Is 
on, the line will be printed. If <occurrence> is specified (an 
unsigned integer or an asterisk), the directive will be repeated 
<occurrence> times. An asterisk means all occurrences of the 
<target> will be found until the bottom or the top of the file 
Is reached. If the target is not reached, the current line 
pointer will not be moved. 


EXAMPLES: 

FIND /STRING/ 


Find the next line containing the 
string "STRING". 


F /A VERY LONG STRING/ 
F/THREE LINES/ 3 


Find the next three lines contain¬ 
ing the string "THREE LINES". 

F/ALL TILL BOTTOM OF FILE/ * Find all following occurrences of 

the indicated string. 

F-/PR0GRAM/7 * Find all previous lines which 

contain the characters "PROGRAM" 
beginning in column seven. 

N[EXT] [<target> [<occurrence>]] 

MEANING: 

The line specified by the target is made the current line. If the 
VERIFY flag is on, the line will be printed. If <occurrence> Is 
specified, it must be an unsigned integer. It indicates which 
next occurrence of a line containing the target Is to be made 
the current line. If the target Is not reached, the current line 
pointer will be positioned at the bottom of the file (top of 
the file for a negative <target>). If no target Is specified, the 
next line will be made the current line. 
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EXAMPLES: 

NEXT 5 

N 

N-10 

N/STRING TARGET/ 
N/THIRD OCCURRENCE/ 3 


Make the fifth following line the 
current line. 


Make the next line the current line. 

Make the tenth previous line current. 

Make the next line containing 
"STRING TARGET" to be the current 
line. 

Make the third line containing the 
Indicated string the current line. 


T[0P] 

MEANING: 

The first line of the file becomes the current line 


Edit Directives 

A[PPEND] /<strlng>/ [<target>] 

MEANING: 

Append the specified <str!ngs> just beyond the last character of 
the current line (and to successive until the target Is reached). 

If the string Is postflxed with a column number, then append the 
string beginning at the specified column (rather than at the end 
of the line). Any characters previously In the line following 
the specified column will be lost. 

EXAMPLES: 

APPEND /./ Append a period to the end of the 

current line. 

A *HELL0* 2 Append the word "HELLO" to the end 

of the current line and to the end 

of the next line. 

A/SEQUENCE/73 *END*7 Append the word "SEQUENCE" starting 

In column 73 of the current line and 
successive lines until a line con- 
taintng the characters "END" begin¬ 
ning In column seven Is found. 

C[HANGE] /<strlng> 1 /<strlng> 2 / [<target> [<occurrence>]] 

MEANING: 

Replace the string specified by <strlng>i with the string specified 
by <strlng> 2 * If no <target> Is specified, only the current line 



( 


|fc 

* 



c 
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is affected. The slashes represent any nonblank delimiter 
character. <occurrence> is used to specify which occurrence cf 
<strlng>i is to be replaced in each line, it is either an un¬ 
signed Integer or an asterisk, signifying that all occur¬ 
rences of the substring <string>j are to be replaced with <string> 2 * 
By default, only the first occurrence will be changed. Note that 
if <occurrence> is specified, and if changes are to occur to the 
current line only, then the target should be a 1 (one). 


EXAMPLES: 

CHANGE /THIS/THAT/ 


Replace the first occurrence of 
"THIS" in the current line with 
"THAT". 


C/A/B/ 1* 

C /FIRST/LAST/10 


C /NEW/OLD/ /A TARGET/ 


C ,A,, -10 * 

C*HELL0* 


Change all occurrences of "A" in 
the current line to "B". 

Change the first occurrence of 
"FIRST" to "LAST" in the current 
line and also in the nine follow¬ 
ing 1ines. 

Change the first occurrence of 
"NEW" to "OLD" in each line down 
through the line containing the 
string "A TARGET". 

Remove all "A"s in the current 
line and in the nine preceding 
1Ines. 

Delete the character string 
"HELLO" from the current line. 


CO£PY] [<destination-target> [<range-target>]] 

MEANING: 

The current line and successive lines until the <range-target> 

Is reached are copied so that they follow the line specified 
by destination-target . The default destination-target Is 1, 
thereby causing a copy of the current line to be placed after 
the next line. The default <range-target> Is 1, thereby copying 
only one line. After the directive Is executed, the current 
line pointer will be positioned at the new position of the last 
line copied. Some lines may be renumbered after a copy. 
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EXAMPLES: 

CO #18 Put a copy of the current line 

after line 18. 

COPY #3 4 Copy four lines beginning with the 

current line and place them after 
line 3‘ 

CO /HELLO DOLLY/ +/END OF RANGE/ After the next line which 

contains the string "HELLO DOLLY" 
place a copy of each line start¬ 
ing with the current line through 
the line containing "END OF RANGE". 



D[ELETE] [<target>] 

MEANING: 

The current line (and successive lines until the target is reached) 
is deleted. After the directive is executed, the current line will 
be the line following the last line deleted. 

EXAMPLES: 

DELETE 5 Delete five lines (the current 

line and the next four lines). 

D Delete the current line. 

D /STRING/ Delete lines from the current 

line through the next line that 
contains the string "STRING". 

EXP[AND] [<target>] 

MEANING: 

The current tab character is expanded within all lines, beginning 
with the current line (and down to and including the line specified 
by target). Since tabs are normally expanded as lines are inserted 
into the file, this directive Is primarily of use when one has 
forgotten to define a tab character. 

EXAMPLES: 

EXPAND 100 Expand 100 lines starting with 

the current line. 

EXP Expand the current line. 

I[NSERT] 

MEANING: 

The editor will enter the buffered input mode, prompting with line 
numbers (unless line numbers have been disabled, see the "NUMBERS" 
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directive) and insert the lines below the current line. Buffered 
input continues until a line beginning with the breakpoint 
character (pound sign) in column one is received. The characters 
following the breakpoint character are treated as an editor 
directive. The editor will try to choose an Insertion Increment 
sufficient to insert at least 10 lines, or, if that Is not 
possible, the smallest increment possible. The current line 
pointer is positioned at the last line inserted. It should be 
noted that the editor may renumber text lines following the 
inserted text If the inserted line numbers overlap line numbers 
previously in the file. 


EXAMPLES: 

INSERT 

I 


Accept line input after the current 
1 Ine. 


C 



iI nsert] <text> 

MEANING: 

The text (sequence of characters) which Immediately follows the 
separator (or blank) after the directive name will be inserted 
as a separate line below the current line of the file. The line 
inserted becomes the current 1ine. It should be noted that the 
editor may renumber text lines following the inserted text If 
the inserted line numbers overlap line numbers previously in the 
file. 

EXAMPLES: 

I THIS BELOW THE CURRENT LINE OF THE FILE 
INSERT EVERYTHING AFTER THE FIKST BLANK 

M0[VE] [<destination-target> [<range-target>J] 

MEANING: 

The current line (and successive lines until the <range-target> 
is reached) Is moved so that it follows the line specified by 
<destlnation-target>. The default <destlnatJon-target> Is 1, 
thereby moving the current line after the next line In the file. 


■m* 




The default <range-target> is 1, thereby moving only one line. 
After the directive is executed the current line pointer will 
be positioned at the new position of the last line moved. Some 
lines may be renumbered after a move. 


EXAMPLES: 


MOVE 3 


Move the current line down three 
1ines. 


MO #1 /TARGET STRING/ 


Insert the current line and all 
lines down through the line con¬ 
taining "TARGET STRING" after 
line 1. 


MO -/PROGRAM/ 5 


Move five lines (including the 
current line) up within the 
file so that they follow a 
line containing the character 
"PROGRAM". 


MO #10 -5 


Move the current line and the 
four previous lines below line 


10 . 


0[VERLAY] [<delimiter>] 

MEANING: 

The current line is printed, then a line of input is accepted from 
the terminal (the overlay line). The overlay line will be posi¬ 
tioned directly beneath the line printed out. Each character of 
the overlay that Is different from the <dellmiter> character 
(default is a blank) will replace the corresponding character In 
the current line. The overlaid line will be printed if verify 
is "ON". 


EXAMPLES: 


OVERLAY 

25.00 - THIP IS THE CORRENT LUNE. 
OVERLAY S U I 

25.00 - THIS IS THE CURRENT LINE. 


U 


0[VERLAY] <d><text> 

MEANING: 

This directive is similar to the previous form of the OVERLAY 
directive with these differences: (l) The current line Is not 
printed. (2) The remainder of the directive line is taken as the 
overlay text. 
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EXAMPLES: 

OVERLAY—-AT—.(.). 

25.00-THAT IS THE (CURRENT) LINE 


P[RINT] [<target>] 


MEANING: 

Beginning with the current line, lines are printed until the line 
specified by target Is reached. By default, only the current line 


will be printed. 
EXAMPLES: 

P 

PRINT 5 
P -10 


Print the current line. 

Print five lines starting with the 
current line. 

Print the current line and the 
nine previous lines. 


PRINT *STRING* 
P -/STRING/ 


Print all lines down through the 
next line containing "STRING". 

Print all lines up through the 
next previous line containing 
"STRING". 


R[EPLACE] [<target>] 

MEANING: 

A "DELETE" from the current line through the <target> line Is 
performed. The editor then enters the buffered Input mode, 
putting the new lines into the area vacated. It is not 
necessary to enter the same number of lines as were deleted. The 
line numbers of the lines Inserted will probably not be the same 
as those deleted. The current line pointer will be positioned 
at the last line inserted. Be default, only the current line will 
be deleted. 


EXAMPLES: 

R 

REPLACE 10 
R /TARGET STRING/ 


Replace the current line. 

Replace ten lines starting with 
the current line. 

Replace all lines from the current 
line through the line containing 
"TARGET STRING". 
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■<text> 

MEANING: 

The directive replaces the current line with the text supplied. 
The replacement text begins with the first character following the 
equals sign. The current line pointer Is not moved. 

EXAMPLES: 

- THIS IS THE REPLACEMENT TEXT. 

(null) 

MEANING: 

The null directive (l.e., Just a carriage return) prints the 
current line. 


Tape Directives 

GAP 

MEANING: 

Issue a string of 1*0 null characters to the tape unit. 
EXAMPLES: 

QAP Puts leader or gap on tape. 


C 


READ 


MEANING: 

This directive will read the next file present on the loaded tape. 
All lines read will be appended to the end of the current work 
file and the last line read will become the "current" line. 
EXAMPLE: 

R EAD Get the next file from the tape. 


%-’Lf 


SAVE 


MEANING: 

Write the entire current file out to the tape unit. The file Is 
written with no line numbers and Is terminated with an ASCII 
"control Z" character. 

EXAMPLE: 

SAVE Puts the current file on tape. 


c 
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W[RITE] [<target>] 

(W MEANING: 

All lines from the current line through the target line are 
written out to tape. The same format as SAVE is used. 

EXAMPLES: 

WRITE Write the current line to tape. 

W #20 Write all lines from the current 

line through line #20 out to the 
tape unit. 



C 



USING TAPE 

The TSC Text Editing System contains four tape directives. These 
can be used with most types of tape devices including paper tape and 
Kansas City Standard cassette systems such as the SWTPC AC-30 tape 
system. When using SAVE or WRITE the text is sent out to the tape In 
the following form: 

TEXT...(carriage return)...TEXT...(C.R.)"control Z". 

The "control Z" is the end of file marker. Note that there are no 
line numbers put on the tape, and also no line feeds or null characters, 
so the file is not suitable for displaying on a terminal in this form. 

When a tape is read back into the editor using the READ command, line 
numbers are automatically put back In. The tape will be read until a 
"control Z" is found. 

THe TSC Text Editing System provides delay after tape turn on for 
cassettes and also issues a control character for each "tape on" "tape 
off", "record on", and "record off". To set these characters to those 
needed by the tape system, see "Adapting to Your System". 

The fourth tape directive is the GAP command. This is used to 
output kO nulls to the tape. This can be used to put leader or trailer 
on the tape, or a gap between files. 






ADAPTING TO YOUR SYSTEM 


The TSC Text Editing System Is assembled to run directly on a 
Motorola MIKBUG based 6800 system, such as the SV/TPC 6800. It can, however, 
be converted with great ease to run on most other 6800 systems. The 
following Information should be all that is necessary in most cases. Read 
through everything carefully before doing any conversion to be sure every¬ 
thing Is understood. This section also contains Information for MIKBUG 
machines to allow setting up the TAPE control characters and the cursor 
control characters for the X command. There Is also information for setting 
memory end. 

1. MEMORY END - The editor is assembled with memory end set at the end 
of an 8K system ($1FFF). To change this for your system put the end 
of memory address in locations $0212 and $0213. The memory end 
should not be set below address $17FF, the end of the first 6K block 
of memory. 

2. INPUT CHARACTER ROUTINE - This routine Is called by the editor and 
requires the following: The character input should be returned in 
the A accumulator, the B accumulator should remain unchanged, as well 
as the index (X) register. The editor is assembled referencing 
MIKBUG's input routine. To substitute the address of your input 
routine, enter it at location $0207 and $0208. 

3. OUTPUT CHARACTER ROUTINE - This routine is called by the editor and 
performs the following: The character In the A accumulator Is output 
to the terminal. The B accumulator and X registers remain unchanged. 

The editor is assembled referencing MIKBUG's output routine. To substitute 
the address of your output routine, enter it at location $020A and 
$020B. Both the Input and output routines should be written as sub¬ 
routines, meaning the last instruction should be RTS. 

. . ' . T ;• ■ : -• - 4 -'. ' ' .. ', , - J ’ i \ ' -Vrf 

i». FULL DUPLEX - If your terminal requires software echo of typed characters 
and your input routine does not provide this, change the JMP (7E) at 
location $0206 to a JSR (BD). 
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5. INPUT CHARACTER FROM TAPE - If you use a tape system connected to a 
differnet I/O port than the terminals or use a different routine 

to handle tape operations, you can set the address of this routine 
at locations $020D and $020E. The character should be In A, while B 
and X should remain unchanged. The editor Is assembled with HIKBUG's 
regular Input routine. 

6. OUTPUT CHARACTER TO TAPE - As explained above, if necessary to use a 
separate output routine for tape operations, set the address at 
locations $0210 and $0211. Character should be In A keeping B and X 
unchanged. The editor Is assembled with the address of HIKBUG's 
regular output routine. 

7. BACKSPACE CHARACTER - The backspace character ("control" H) Is stored 
at location $049D. It Is presently a 08. Change as desired. 

8. DELETE CHARACTER - The delete character Is stored in location $04AC. 

It is currently a $18 ("control" X). This may be changed as desired. 

9. BELL CHARACTER - When the input buffer Is overflowed (more than 1 36 
characters typed) the editor outputs a "bell" character (07). This 
Is stored at location $04C2 and may be changed as desired. 

10. TAPE TURN ON DELAY - The editor is assembled to delay approximately 

2 seconds after tape turn on before outputting data. This may be set 
as needed at location $00B6. It Is currently 06. Setting It to 00 is 
zero delay, with larger values being longer delays. 

11. TAPE CONTROL CHARACTERS - The editor outputs four special characters to 
control tape operations. These characters are presently set to nulls 
(00). To set these to your systems requirements, change the following 
locations. 

TAPE ON (PLAY) - $00B7 

TAPE OFF (PLAY) - $00B8 

TAPE ON (RECORD) - $00B9 

TAPE OFF (RECORD) - $00BA 

12. CURSOR CONTROL CHARACTERS - The editor outputs a string of six characters 
upon execution of the "X" command. These can be set to special cursor 
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or other control characters. They are presently nulls (00). Set 
desired characters at location $0982 through $0987* 

13. RETURN TO MONITOR ADDRESS - Upon execution of STOP, S, or LOG, the 
editor returns to the system monitor. The editor Is assembled with 
the address of MIKBUG. Enter the address of your monitor at location 
$098C and $098D. 


SYSTEM CHARACTERISTICS 

1. The maximum line number Is 9999.99. If more than 9,999 lines are 

entered, the line number counter will turn over (go back to 0), 
therefore, the editor should not be used with files of 10,000 lines ( 

or longer. (This is not really a limitation since 10,000 null lines 

(line number followed by a carriage return) uses up 40K of memoryl) 

2. The Input buffer will hold 136 characters. If more than 136 characters 
are typed, they will be Ignored and a "bell" character output to the 

;v>; 

terminal. To terminate the line It Is necessary to type the backspace * 
character and then a carriage return. 

3. Setting the "tab" character and the "fill" character the same will _ 

defeat the TAB feature. There is no logical reason to do this. 


k. Setting the "E0L" character will allow using multiple commands at a 
time. Insert and overlay cannot be followed by other commands. An 
example of E0L use (with E0L set to "$") is: 

+D2$P10$T 

This sequence will delete the first 2 lines of the file, then print 
the next 10 lines, and finally, return the pointer to the top of the 
file. 


L 
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MORE EXAMPLES 


NEW file: 

1.00 =** THIS IS A TEST PROGRAM ** 

2.00 = 

3.00 = ? ORG ?$0100 

4.00 =START?LDX?+$FFF?SET COUNT 

5.00 =#3 

3.00 =?ORG ? *0100 

♦ SET TAB =/ ? ' 

♦TAB 9 16 26 
♦SET EOL='*' 

♦ EXP ! 

♦ 7 $ p 5 

1.00 =** THIS IS A TEST PROGRAM ** 

2.00 = 

3.00 = ORG $0100 

4.00 =START LDX ♦$FFF SET COUNT 

♦ I 

5.00 -?LDA A?+$40?SET SECOND COUNT 
6.00 =LOOF’ ? DEC A ? ? DEC THE COUNT 
7.00 =?BNE?LOOP?LOOFTILL DONE 
8.00 = f DEX ii DEC THE X REG 
9.00 = »BNE?L00P1?LOOPJTIL DONE 
10.00 = f LDA A 5 ♦ * (? ? SET UP CHAR 
11.00 = i JSR i OUTCHR?OUTPUT IT 
12.00 =DONE i BRA» DONE»LOOP FOREVER 
13.00 =♦! 

♦ NU 
♦P! 

** THIS IS A TEST PROGRAM ** 


ORG 


*0100 


START LDX 


♦ $FFF 

SET COUNT 

LDA 

A 

♦ ♦40 

SET SECOND COUNT 

LOOP DEC 

A 


DEC THE COUNT 

BNE 


LOOP 

LOOPTILL DONE 

DEX 



DEC THE X REG 

BNE 


L00P1 

LOOP?TIL DONE 

LDA 

A 

♦ •e 

SET UP CHAR 

JSR 


OUTCHR 

OUTPUT IT 

DONE BRA 


DONE 

LOOP FOREVER 

♦ NU 

♦ 




12.00 =DONE 

BRA 

DONE LOOP FOREVER 

♦-»FFF» C ?FF t 

FFF 


4.00 =START 

LDX 

♦*FFFF SET COUNT 


♦H 45 * P 

12345678-012345-789012345-7890123456789012345 
4.00 =S7 ART LDX ♦*FFFF SET COUNT 






32 


♦ + 1 0 


5.00 = 

LDA 

A 

♦ ♦40 

SET 

SECOND 

COUNT 

OVERLAY LOOP1 
5.00 =L00P1 

LDA 

A 

♦ ♦40 

SET 

SECOND 

COUNT 

♦CfLOQPIfL00P2f 
5.00 =L00P2 

LDA 

A 

♦ ♦40 

SET 

SECOND 

COUNT 

9.00 = 

BNE 


LOOP 2 

LOOP 

fTIL DONE 


♦~ C fLOOP fLOOPI 

F > 




6.00 

=L00P1 

DEC 

A 


DEC THE COUNT 

7.00 

22 

BNE 


L00P1 

LOOPTILL DONE 

12.00 

=DONE 

BRA 


DONE 

LOOP1FOREVER 

♦ C F 1 F 






12.00 

=DONE 

BRA 


DONE 

LOOP FOREVER 

♦7CfPTfP 

T 





7.00 

= 

BNE 


L00P1 

LOOP TILL DONE 

♦ Af ! f 






7.00 

8S 

BNE 


L00P1 

LOOP TILL DONE ! 

♦ B 






♦I fEND 

A 






♦ 

13.00 

nr 

END 




♦R 






13.00 

8 





14.00 

= ?END 





15.00 

8 





16.00 

=* THATS 

ALL 

* 



17.00 

=#^P! 





1.00 

=** THIS 

IS fi 

1 TEST PROGRAM ** 

2.00 

= 





3.00 


GRG 


♦0100 


4.00 

=START 

LDX 


♦♦FFFF 

SET COUNT 

5.00 

=L00P2 

LDA 

A 

♦ ♦40 

SET SECOND COUNT 

6.00 

^LOOPl 

DEC 

A 


DEC THE COUNT 

7.00 

2 = 

BNE 


L00P1 

LOOP TILL DONE ! 

8.00 

2 = 

DEX 



DEC THE X REG 

9.00 

22 

BNE 


L00P2 

LOOPfTIL DONE 

10.00 

22 

LDA 

A 

♦ •0 

SET UP CHAR 

11.00 

22 

JSR 


OUTCHR 

OUTPUT IT 

12.00 

=DONE 

BRA 


DONE 

LOOP FOREVER 

13.00 

22 





14.00 

22 

END 




15.00 

22 





16.00 

=* THATS 

ALL 

* 




♦ LOG 

* 






TSC 6800 TEXT EDITING SYSTEM 


PAGE 1 


LOCN B1 B2 B3 

* 

* 

* 

* 

* 

* 

* 

* 


COPYRIGHT 1977 (C) BY 

TECHNICAL SYSTEMS CONSULTANTS 
BOX 2574 

W. LAFAYETTE, INDIANA 47906 
<317) 742 7509 


* EXTERNAL EQUATES 


01FF 

STACK 

EQU 

♦ 01FF 

EODO 

MIKBUG 

EQU 

♦EODO 

0023 

PROMPT 

EQU 

♦ 23 

OOOD 

CRGRET 

EQU 

♦ D 

0018 

DELCOD 

EQU 

♦ 18 

0008 

BACKSP 

EQU 

♦ 8 

0007 

BELL 

EQU 

♦ 7 




ORG 

♦ 40 


* TEMPORARY 

STORAGE 

0040 

TEMP 

RMB 

2 

0042 

XSAUE 

RMB 

o 

4 

0044 

BUFPNT 

RMB 

2 

0046 

BUFSAV 

RMB 

2 

0048 

CURPOS 

RMB 

2 

004A 

NEWPOS 

RMB 

2 

004C 

SRCHPT 

RMB 

2 

004E 

STRNGB 

RMB 

2 

0050 

STRNGE 

RMB 

2 

0052 

STRGB1 

RMB 

2 

0054 

STRGE1 

RMB 

2 

0056 

STRPNT 

RMB 

2 

0058 

SPCPT1 

RMB 

2 

005A 

SPCPT2 

RMB 

2 

005C 

LASTNO 

RMB 

2 

005E 

Z0NE1 

RMB 

2 

0060 

Z0NE2 

RMB 

2 

0062 

ZONBUF 

RMB 

2 

0064 

CHGPNT 

RMB 

2 

0066 

CHGEND 

RMB 

2 

0068 

OCRTMP 

RMB 

2 

006A 

NUMFLG 

RMB 

1 

006B 

VERFLG 

RMB 

1 

006C 

MSLFLG 

RMB 

1 

006D 

PSTZFL 

RMB 

1 

006E 

OCRCNT 

RMB 

2 

0070 

FNDFL.G 

RMB 

1 

0071 

STRCN1 

RMB 

1 

0072 

OURBEG 

RMB 

1 

0073 

OVREND 

RMB 

1 

0074 

NOCURL 

RMB 

1 
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LOCN 

0075 

B1 B2 B3 

LINFLG 

RMB 

1 

0076 


NXTFLG 

RMB 

1 

0077 


ALLFLG 

RMB 

1 

0078 


OCRFLG 

RMB 

1 

0079 


CHGONF 

RMB 

1 

007A 


APPCOL 

RMB 

1 

007B 


STRCNT 

RMB 

1 

007C 


INCAMT 

RMB 

1 

007D 


bmpflg 

RMB 

1 

007E 


EGUFLG 

RMB 

1 

007F 


INLMFL 

RMB 

1 

0080 


MOVFLG 

RMB 

1 

0081 


REPFLG 

RMB 

1 

0082 


TMPCHR 

RMB 

1 

0083 


CHKFLG 

RMB 

1 

0084 


SNGLIN 

RMB 

1 

0085 


CHGFLG 

RMB 

1 

0086 


STRCN2 

RMB 

1 

0087 


FNONFL 

RMB 

1 

0088 


LSTFLG 

RMB 

1 

0089 


DECCNT 

RMB 

1 

008A 


PRNFLG 

RMB 

1 

008B 


CPYDRC 

RMB 

1 

008C 


DRCTN 

RMB 

1 

008D 


CHRCNT 

RMB 

2 

008F 


INZFLG 

RMB 

1 

0090 


NUMBER 

RMB 

3 

0093 


TRGLIN 

RMB 

2 

0095 


DELIM 

RMB 

1 

0096 


HEDCNT 

RMB 

1 

0097 


FILBEG 

RMB 

2 

0099 


FILEND 

RMB 

2 

009B 


TABPNT 

RMB 

2 

009D 


TABBUF 

RMB 

20 

00B1 

00 

TABEND 

FCB 

0 

00B2 

00 

TABCH 

FCB 

4 

00B3 

20 

FILL 

FCC 

/ / 

00B4 

23 

LINO 

FCC 


00B5 

00 

EOL 

FCB 

0 

00B6 

06 

DELAY 

FCB 

6 

00B7 

00 

TONCH 

FCB 

0 

OOB8 

00 

TOFCH 

FCB 

0 

00B9 

00 

RONCH 

FCB 

0 

OOBA 

00 

ROFCH 

FCB 

0 

OOBB 


BUFFER 

RMB 

136 




ORG 

*0200 


* PROGRAM STARTS HERE 




c 



c 


0200 7E 03 55 START JMP 


INITLZ 
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LOCN B1 B2 B3 

0203 7E 03 83 RESTRT JMP PEDIT 

* EXTERNAL 1-0 ROUTINES 


0206 

7E 

El 

AC 

INCH 

JMP 

♦El AC 



0209 

7E 

El 

D1 

OUTCH 

JMP 

♦E1D1 



020C 

7E 

El 

AC 

TINCH 

JMP 

♦ El AC 

TAPE 

INPUT ROUTINE 

020F 

7E 

El 

D1 

TOUCH 

JMP 

♦ E1D1 

TAPE 

OUTPUT ROUTINE 

0212 

IF 

FF 


MEMEND 

FDB 

♦ 1FFF 




* COMMAND TABLE 


0214 41 

0215 50 

0216 50 

0217 45 

0218 4E 

0219 44 

TABLE FCC 

'APPEND' 

021A 00 

FCB 

0 

021B 12 DD 

FDB 

APPEND 

02ID 41 

FCC 

'A' 

021E 00 

FCB 

0 

021F 12 DD 

FDB 

APPEND 

0221 42 

0222 4F 

0223 54 

0224 54 

0225 4F 

0226 4D 

FCC 

'BOTTOM' 

0227 00 

FCB 

0 

0228 09 8E 

FDB 

BOTTOM 

022A 42 

FCC 

'B' 

022B 00 

FCB 

0 

022C 09 8E 

FDB 

BOTTOM 

022E 43 

FCC 

'CHANGE' 

022F 48 


* • 

0230 41 


■ «J 'L . \ ■ '■ 

0231 4E 

0232 47 


- 

0233 45 



0234 00 

FCB 

0 

0235 OD CB 

FDB 

CHANGE 

0237 43 

0238 4F 

0239 50 

023A 59 

FCC 

'COPY' 

023B 00 

FCB 

0 

023C OF F3 

FDB 

COPY 

023E 43 

023F 4F 

FCC 

'CO' 

0240 00 

FCB 

0 

0241 OF F3 

FDB 

COPY 
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LOCN B1 B2 B3 

0243 43 FCC 


0244 00 
0245 OD CB 
0247 44 
0248 45 
0249 4C 
024A 45 
024B 54 
024C 45 
024D 00 
024E OC 8A 
0250 44 


FCB 

FDB 

FCC 


FCB 

FDB 

FCC 


0251 00 

FCB 

0252 OC 8A 

FDB 

0254 45 

FCC 

0255 58 


0256 50 


0257 41 


0258 4E 


0259 44 


025A 00 

FCB 

025B 12 5C 

FDB 

025D 45 

FCC 

025E 58 


025F 50 


0260 00 

FCB 

0261 12 5C 

FDB 

0263 46 

FCC 

0264 49 


0265 4E 


0266 44 


0267 00 

FCB 

0268 09 CF 

FDB 

026A 46 

FCC 

026B 00 

FCB 

026C 09 CF 

FDB 

026E 47 

FCC 

026F 41 


0270 50 


0271 00 

FCB 

0272 14 13 

FDB 

0274 48 

FCC 

0275 45 


0276 41 


0277 44 


0278 45 


0279 52 


027A 00 

FCB 

027B 11 IB 

FDB 

027D 48 

FCC 

027E 00 

FCB 


'C' 

0 

CHANGE 
'DELETE 


0 

DELETE 

'D' 

0 

DELETE 

'EXPAND 


0 

EXPAND 

'EXP' 


0 

EXPAND 

'FIND' 


0 

CFIND 

'F' 

0 

CFIND 

'GAP' 


0 

GAP 

'HEADER' 


0 

HEADER 

'H' 


0 
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LOCN B1 

B2 B3 



027F 11 

IB 

FDB 

HEADER 

0281 4? 
0282 4E 
0283 53 
0284 45 
0285 52 
0286 54 


FCC 

'INSERT' 

0287 00 


FCB 

0 

0288 OA 

C8 

FDB 

INSERT 

028A 49 


FCC 

'I' 

028B 00 


FCB 

0 

028C OA 

C8 

FDB 

INSERT 

028E 4C 
028F 4F 
0290 47 


FCC 

"LOG' 

0291 00 


FCB 

0 

0292 09 

89 

FDB 

EXIT 

0294 4D 
0295 4F 
0296 56 
0297 45 


FCC 

'MOVE' 

0298 00 


FCB 

0 

0299 OF 

D4 

FDB 

MOVE 

029B 4D 
029C 4F 


FCC 

'MO' 

029D 00 


FCB 

0 

029E OF 

D4 

FDB 

MOVE 

02A0 4E 
02A1 45 
02A2 58 
02A3 54 


FCC 

'NEXT' 

02A4 00 


FCB 

0 

02A5 09 

CC 

FDB 

NEXT 

02A7 4E 
02A8 55 
02A9 4D 
02AA 42 
02AB 45 
02AC 52 
02AD 53 


FCC 

'NUMBERS' 

1 

02AE 00 


FCB 

0 

02AF 09 

ID 

FDB 

NUMSET 

02B1 4E 
02B2 55 


FCC 

'NU' 

02B3 00 


FCB 

0 

02B4 09 

ID 

FDB 

NUMSET 

02B6 4E 


FCC 

'N' 

02B7 00 


FCB 

0 

02B8 09 CC 

FDB 

NEXT 

02BA 4F 
02BB 56 
02BC 45 
02BD 52 


FCC 

'OVERLAY' 
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LOCN 

B1 

B2 B3 



02BE 

4C 




02BF 

41 




02C0 

59 




02C1 

00 


FCB 

0 

02C2 

OF 

21 

FDB 

OUERLA 

02C4 

4F 


FCC 

'O' 

02C5 

00 


FCB 

0 

02CA 

OF 

21 

FDB 

OVERLA 

02C8 

50 


FCC 

'PRINT' 

02C9 

52 




02CA 

49 




02CB 

4E 




02CC 

54 




02CD 

00 


FCB 

0 

02CE 

08 

77 

FDB 

PRINT 

02D0 

50 


FCC 

'P' 

02D1 

00 


FCB 

0 

02D2 

08 

77 

FDB 

PRINT 

02D4 

52 


FCC 

'READ' 

02D5 

45 




02D6 

41 




02D7 

44 




02D8 

00 


FCB 

0 

02D9 

14 

2A 

FDB 

READ 

02DB 

52 


FCC 

'RENUMBER 

02DC 

45 




02DD 

4E 




02DE 

55 




02DF 

4D 




02E0 

42 




02E1 

45 




02E2 

52 




02E3 

00 


FCB 

0 

02E4 

06 

A5 

FDB 

RENUMB 

02E6 

52 


FCC 

'REN' 

02E7 

45 




02E8 

4E 




02E9 

00 


FCB 

0 

02EA 

06 

A5 

FDB 

RENUMB 

02EC 

52 


FCC 

'REPLACE' 

02ED 

45 




02EE 

50 




02EF 

4C 




02F0 

41 




02F1 

43 




02F2 

45 




02F3 

00 


FCB 

0 

02F4 

OC 

87 

FDB 

REPLAC 

02FA 

52 


FCC 

'R' 

02F7 

00 


FCB 

0 

02F8 

OC 

87 

FDB 

REPLAC 

02FA 

53 


FCC 

'SAVE' 


PAGE 6 
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LOCN 

B1 

B2 B3 



02FB 

41 




02FC 

56 




02FD 

45 




02FE 

00 


FCB 

0 

02FF 

13 

9D 

FDB 

SAVE 

0301 

53 


FCC 

'SET 7 

0302 

45 




0303 

54 




0304 

00 


FCB 

0 

0305 

11 

CC 

FDB 

SET 

0307 

53 


FCC 

7 STOP 7 

0308 

54 




0309 

4F 




030A 

50 




030B 

00 


FCB 

0 

030C 

09 

89 

FDB 

EXIT 

030E 

53 


FCC 

7 S 7 

030F 

00 


FCB 

0 

0310 

09 

89 

FDB 

EXIT 

0312 

54 


FCC 

7 TAB 7 

0313 

41 




0314 

42 




0315 

00 


FCB 

0 

0316 

10 

DO 

FDB 

TAB 

0318 

54 


FCC 

7 TOP 7 

0319 

4F 




031A 

50 




031B 

00 


FCB 

0 

031C 

09 

9D 

FDB 

TOP 

031E 

54 


FCC 

7 T 7 

031F 

00 


FCB 

0 

0320 

09 

9D 

FDB 

TOP 

0322 

56 


FCC 

7 VERIFY 

0323 

45 




0324 

52 




0325 

49 




0326 

46 




0327 

59 




0328 

00 


FCB 

0 

0329 

09 

63 

FDB 

VERSET 

032B 

56 


FCC 

7 V 7 

032C 

00 


FCB 

0 

032D 

09 

63 

FDB 

VERSET . 

032F 

57 


FCC 

7 WRITE 7 

0330 

52 




0331 

49 




0332 

54 




0333 

45 




0334 

00 


FCB 

0 

0335 

13 

AD 

FDB 

WRITE 

0337 

57 


FCC 

7 W 7 
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LOCN 

B1 

B2 B3 



0338 

00 


FCB 

0 

0339 

13 

AD 

FDB 

WRITE 

033B 

58 


FCC 

'X' 

033C 

00 


FCB 

0 

033D 

09 

78 

FDB 

XCNTRL 

033F 

5A 


FCC 

'ZONE' 

0340 

4F 




0341 

4E 




0342 

45 




0343 

00 


FCB 

0 

0344 

11 

7E 

FDB 

SZONE 

0346 

5A 


FCC 

'Z' 

0347 

00 


FCB 

0 

0348 

11 

7E 

FDB 

SZONE 

034A 

00 


FCB 

0 


* NEW FILE ‘STRING 

034B 4E NWFSTR FCC 'NEW FILE* ' 

034C 45 

034D 57 

034E 20 

034F 46 

0350 49 

0351 4C 

0352 45 

0353 3A 

0354 04 FCB 4 


* INITIALIZATION ROUTINE 


0355 

8E 

01 

FF INITLZ 

LDS 


♦STACK 


0358 

CE 

14 

92 

LDX 


♦BEGPNT 


035B 

DF 

97 


STX 


FILBEG 


035D 

DF 

99 


STX 


FILEND 

SET END ALSO 

035F 

CE 

02 

03 

LDX 


♦RESTRT 


0362 

FF 

AQ^48 

STX 


♦ A048 

SET RESTART ADDRESS 

0365 

CE 

00 

01 

LDX 


♦ 1 

SET ZONES 

0368 

DF 

5E 


STX 


Z0NE1 


036A 

CE 

01 

36 

LDX 


♦$0136 


036D 

DF 

60 


STX 


Z0NE2 


036F 

86 

46 


LDA 

A 

♦ 70 

SET UP HEADER 

0371 

97 

96 


STA 

A 

HEDCNT 


0373 

4F 



CLR 

A 



0374 

97 

9D 


STA 

A 

TABBUF 

FIX STORAGE 

0376 

4A 



DEC 

A 



0377 

97 

8F 


STA 

A 

INZFLG 


0379 

97 

6A 


STA 

A 

NUMFLG 

TURN ON NUMBERS 

037B 

97 

6B 


STA 

A 

VERFLG 

ALSO VERIFICATION 

037D 

CE 

03 

4B 

LDX 


♦NWFSTR 

POINT TO STRING 

0380 

BD 

04 

83 

JSR 


PSTRNG 

OUTPUT IT 


PAGE 
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LOCN B1 B2 B3 


* RESTART ENTRY POINT 


0383 

DE 

97 PEDIT 

LDX 

FILBEG 

POINT TO BEGIN 

0385 

DF 

48 

STX 

CURPOS 


0387 

7F 

00 6C 

CLR 

MSLFLG 







* MAIN 

EDIT LOOP 


038A 

8E 

01 

FF 

EDIT 

LDS 

♦STACK 

SETUP STACK POINTER 

038D 

DF 

40 



STX 

TEMP 

SAVE POINTER 

038F 

DE 

48 



LDX 

CURPOS 

SET CURRENT POSITION 

0391 

DF 

4A 



STX 

NEWPOS 

SAVE IT 

0393 

CE 

00 

6D 


LDX 

♦PSTZFL 


0396 

4F 




CLR A 


CLEAR ACC. 

0397 

A7 

00 


EDIT1 

STA A 

0»X 

CLEAR OUT LOCATION 

0399 

08 




INX 


BUMP POINTER 

039A 

8C 

00 

8E 


CPX 

♦CHRCNT+1 


039D 

26 

F8 



BNE 

EDIT1 


039F 

DE 

40 



LDX 

TEMP 

RESTORE POINTER 

03A1 

96 

8F 



LDA A 

INZFLG 

INITIALIZE? 

03A3 

27 

06 



BEG 

EDIT2 


03A5 

7F 

00 

8F 


CLR 

INZFLG 


03A8 

7E 

OA 

EA 


JMP 

INSER4 

GO INSERT LINES 

03AB 

96 

6C 


EDIT2 

LDA A 

MSLFLG 

MULTIPLE ST. PER LINE? 

03AD 

26 

22 



BNE 

EDIT55 


03AF 

97 

8E 



STA A 

CHRCNT+1 


03B1 

CE 

00 

BB 


LDX 

♦BUFFER 

SET POINTER 

03B4 

BD 

04 

4E 


JSR 

PCRLF 


03B7 

86 

23 



LDA A 

♦PROMPT 

SETUP PROMPT 

03B9 

BD 

02 

09 


JSR 

OUTCH 

OUTPUT IT 

03BC 

BD 

04 

99 

EDIT3 

JSR 

INCHAR 


03BF 

27 

C9 



BEQ 

EDIT 


03C1 

A7 

00 


EDIT4 

STA A 

0»X 

PUT CHAR IN BUFFER 

03C3 

81 

OD 



CMP A 

♦CRGRET 

IS IT A C.R. 

03C5 

27 

05 



BEQ 

EDIT5 


03C7 

BD 

04 

BB 


JSR 

BUFLIM 

IS BUFFER FULL? 

03CA 

20 

FO 



BRA 

EDIT3 

REPEAT 

03CC 

CE 

00 

BB 

EDIT5 

LDX 

♦BUFFER 

RESTORE POINTER 

03CF 

DF 

44 



STX 

BUFPNT 


03D1 

7F 

00 

6C 

EDIT55 

CLR 

MSLFLG 


03D4 

BD 

04 

D2 


JSR 

FINDL 

PROCESS LINE INFO 

03D7 

4F 




CLR A 



03D8 

97 

75 



STA A 

LINFLG 

CLEAR FLAS 

03DA 

97 

8C 



STA A 

DRCTN 


03DC 

DF 

4A 



STX 

NEWPOS 

SAVE POINTER 

03DE 

DE 

44 



LDX 

BUFPNT 


03E0 

BD 

04 

92 


JSR 

SKIPSP 

SKIP SPACES 

03E3 

DF 

44 



STX 

BUFPNT 

SAVE POINTER 

03E5 

81 

3D 



CMP A 

♦ ' = 

IS IT AN '='? 

03E7 

26 

08 



BNE 

EDIT56 


03E9 

08 




INX 


BUMP POINTER 

03EA 

DF 

44 



STX 

BUFPNT 
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LOCN 

B1 

B2 

B3 





03EC 

CE 

OA 

A5 


LDX 

♦EQUALS 


03EF 

20 

44 



BRA 

EDIT85 

GO TO IT 

03F1 

BD 

06 

63 

EDIT56 

JSR 

TSTEND 

TEST END 

03F4 

26 

05 



BNE 

EDIT58 

POINT TO PRINT 

03F6 

CE 

08 

77 


LDX 

♦PRINT 

03F9 

20 

3A 



BRA 

EDIT85 


03FB 

DF 

40 


EDIT58 

STX 

TEMP 


03FD 

CE 

02 

14 


LDX 

♦TABLE 

POINT TO TABLE 

0400 

DF 

9B 


EDIT6 

STX 

TABPNT 

SAVE IT 

0402 

6D 

00 



TST 

0»X 

IS IT NULL? 

0404 

27 

23 



BEQ 

EDITS 


0406 

A1 

00 



CMP A 

0»X 

CHECK CHARACTER 

0408 

26 

OC 



BNE 

EDIT7 

ARE THEY EQUAL? 

040A 

DE 

44 



LDX 

BUFPNT 

RESTORE POINTER 

040C 

08 




INX 


BUMP IT 

040D 

A6 

00 


EDIT65 

LDA A 

OrX 

GET NEXT CHAR. 

040F 

DF 

44 



STX 

BUFPNT 

SAVE POINTER 

0411 

DE 

9B 



LDX 

TABPNT 


0413 

08 




INX 


BUMP THE TABLE PNTR 

0414 

20 

EA 



BRA 

EDIT6 


0416 

08 



EDIT7 

INX 


BUMP THE POINTER 

0417 

6D 

00 



TST 

0»X 

IS IT NULL? 

0419 

26 

FB 



BNE 

EDIT7 


041B 

08 




INX 


BUMP POINTER 3 TIMES 

041C 

08 




INX 



04 ID 

08 




INX 



041E 

6D 

00 



TST 

0 »X 

END OF TABLE? 

0420 

27 

IF 



BEG 

ERROR 

REPORT ERROR 

0422 

09 




DEX 



0423 

DF 

9B 



STX 

TABPNT 

SAVE THE POINTER 

0425 

DE 

40 



LDX 

TEMP 


0427 

20 

E4 



BRA 

EDIT65 

REPEAT 

0429 

08 



EDIT8 

INX 

T [■ ' r •'* * 

BUMP THE POINTER 

042A 

EE 

00 



LDX 

o,x 

GET ADDRESS 

042C 

8C 

OA 

C8 


CPX 

♦INSERT 

IS IT INSERT? 

042F 

26 

04 



BNE 

EDIT85 


0431 

96 

7F 


& >■* ~ 

LDA A 

INLMFL 


0433 

26 

OA 



BNE 

EDIT88 


0435 

BD 

08 

21 

EDIT85 

JSR 

TSTOVR 

LIMITS? 

0438 

26 

25 



BNE 

NOTFND 

■ t 

043A 

4F 




CLR A 


CLEAR FLAGS 

043B 

97 

72 



STA A 

OVRBEG 


043D 

97 

73 



STA A 

OVREND 


043F 

6E 

00 


EDIT88 

JMP 

OfX 

GO TO IT 


C 


* ERROR ROUTINE 


0441 

CE 

04 

4C 

ERROR 

LDX 

♦ERRSTR 

POINT TO STRING 





* PRINT 

ERROR 

MESSAGE 


0444 

8D 

3D 


PREROR 

BSR 

PSTRNG 


0446 

7F 

00 

6C 


CLR 

MSLFLG 

CLEAR FLAG 

0449 

7E 

03 

8A 


JMP 

EDIT 

RETURN 


C 
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LOCN B1 B2 B3 

044C 3F ERRSTR FCC '?' 

044D 04 FCB 4 


* PRINT CARRIAGE RETURN l LINE FEED 


044E 

DF 

42 

PCRLF 

STX 

XSAVE 

SAVE POINTER 

0450 

CE 

04 58 


LDX 

♦CRLFST 

POINT TO STRING 

0453 

8D 

30 


BSR 

PDATA1 


0455 

DE 

42 


LDX 

XSAVE 

RESTORE STRING 

0457 

39 



RTS 


RETURN 

0458 

OD 


CRLFST 

FCB 

4* 

3 > 

O 

o 

o 

o 

<• 

0459 

OA 






045A 

00 






045B 

00 






045C 

00 






045D 

00 






045E 

04 







* REPORT LINE NOT FOUND 


( 


C 


045F 

CE 04 

64 

NOTFND 

LDX 

♦NOFSTR 

POINT 

0462 

20 EO 



BRA 

PREROR 


0464 

4E 


NOFSTR 

FCC 

'NO SUCH 

LINE' 

0465 

4F 






0466 

20 






0467 

53 






0468 

55 




- Civ? ; 


0469 

43 






046A 

48 






046B 

20 



i J u 



046C 

4C 






046D 

49 






046E 

4E 






046F 

45 






0470 

04 



FCB 

4 





* REPORT SYNTAX ERROR 


0471 

CE 04 

76 

SYNERR 

LDX 

♦SYNSTR 

POINT 

0474 

20 CE 



BRA 

PREROR 


0476 

53 


SYNSTR 

FCC 

'SYNTAX ERROR' 


0477 5? 
0478 4E 
0479 54 
047A 41 
047B 58 
047C 20 







TSC 6800 TEXT EDITING SYSTEM 
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LOCN B1 B2 B3 
047D 45 
047E 52 
047F 52 
0480 4F 
0481 52 
0482 04 


0483 8D C9 
0485 A6 00 
0487 81 04 
0489 27 OD 
048B BD 02 09 
048E 08 
048F 20 F4 


PSTRNG 

PDATA1 


FCB 

4 


STRING 

ROUTINE 


BSR 

PCRLF 

OUT C.R. L.F 

LDA A 

0»X 

GET CHAR* 

CMP A 

#4 

IS IT TERM? 

BEG 

SKIPS2 


JSR 

OUTCH 

OUTPUT IT 

INX 


BUMP POINTER 

BRA 

PDATA1 



* SKIP ALL SPACES 


0491 

08 



SKIPSA 

INX 




0492 

A6 

00 


SKIPSP 

LDA 

A 

O'X 

GET A CHAR. 

0494 

81 

20 



CMP 

A 

♦ ' 

IS IT A SPACE? 

0496 

27 

F9 



BEG 


SKIPSA 

REPEAT 

0498 

39 



SKIPS2 

RTS 



RETURN 





* INPUT 

AND 

CHECK CHARACTER 

0499 

BD 

02 

06 

INCHAR 

JSR 


INCH 

GET CHAR 

049C 

81 

08 


INCHR1 

CMP 

A 

♦BACKSP 

IS IT A BACKSPACE? 

049E 

26 

OB 



BNE 


INCHR3 


04A0 

8C 

00 

BB 


CPX 


♦BUFFER 

BUFFER BEGINNING? 

04A3 

27 

15 



BEQ 


INCHR4 


04A5 

09 




DEX 



DEC THE POINTER 

04A6 

7A 

00 

8E 


DEC 


CHRCNT+1 


04A9 

20 

EE 



BRA 


INCHAR 


04AB 

81 

18 


INCHR3 

CMP 

A 

♦DELCOD 

IS IT A DELETE?’ 

04AD 

27 

OB 



BEG 


INCHR4 


04AF 

81 

IF 



CMP 

A 

♦♦IF 

IS IT CONTROL? 

04B1 

22 

04 



BHI 


INCH35 


04B3 

81 

OD 



CMP 

A 

♦CRGRET 

IS IT A C.R.? 

04B5 

26 

E2 



BNE 


INCHAR 


04B7 

7C 

00 

8E 

INCH35 

INC 


CHRCNT+1 

INC CHAR. COUNT 

04BA 

39 



INCHR4 

RTS 



RETURN 





* CHECK 

FOR 

BUFFER OVERFLOW 

04BB 

08 



BUFLIM 

INX 



BUMP THE POINTER 

04BC 

8C 

01 

43 


CPX 


♦BUFFER+136 

04BF 

26 

F9 



BNE 


INCHR4 


04C1 

86 

07 


OVER 

LDA 

A 

♦ BELL 

LOAD UP BELL 

04C3 

BD 

02 

09 


JSR 


OUTCH 

OUTPUT IT 


C 


c 
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TSC 6800 TEXT EDITING SYSTEM 


LOCN 

B1 

B2 

B3 




04C6 

BD 

02 

06 

JSR 

INCH 

GET NEW CHAR, 

04C9 

81 

08 


CMP A 

♦BACKSP 

IS IT BACKSPACE? 

04CB 

26 

F4 


BNE 

OVER 


04CD 

09 



DEX 


DEC THE POINTER 

04CE 

7A 

00 

8E 

DEC 

CHRCNT+1 


04D1 

39 



RTS 


RETURN 


* PROCESS LINE ROUTINE 


04D2 

8D 

BE 


FINDL 

BSR 

SKIPSP 

SKIP SPACES 

04D4 

81 

3D 



CMP A 

#' = 

IS IT ' = '? 

04D6 

27 

OA 



BEQ 

FINDLO 


04D8 

7C 

00 

75 


INC 

LINFLG 

SET FLAG 

04DB 

BD 

07 

3B 


JSR 

CLASS 

CLASSIFY CHAR. 

04DE 

Cl 

01 



CMP B 

*1 

IS IT A LETTER 

04E0 

23 

03 



BLS 

FINDL2 


04E2 

DE 

4A 


FINDLO 

LDX 

NEWPOS 

SET POINTER 

04E4 

39 



FINDL1 

RTS 


RETURN 

04E5 

27 

23 


FINDL2 

BEG 

FIND1 


04E7 

20 

14 



BRA 

FIND 






* TARGET ENTRY 

POINT 


04E9 

8D 

03 


FINDT 

BSR 

FINDTO 


04EB 

DF 

93 



STX 

TRGLIN 

SAVE TARGET POS, 

04ED 

39 




RTS 


RETURN 

04EE 

7F 

00 

8C 

FINDTO 

CLR 

DRCTN 


04F1 

BD 

07 

38 


JSR 

SKPCLS 


04F4 

Cl 

01 



CMP B 

*1 

IS IT A LETTER? 

04F6 

23 

03 



BLS 

FINDT2 


04F8 

7E 

04 

71 

FINDT1 

JMP 

SYNERR 

REPORT SYNTAX ERROR 

04FB 

27 

7D 


FINDT2 

BEG 

FIND62 


04FD 

7F 

00 

8C 

FIND 

CLR 

DRCTN 

CLEAR DIRECTION 

0500 

91 

B4 



CMP A 

LINO 

IS IT LINE NUMBER 

0502 

26 

2E 



BNE 

FIND2 


0504 

08 




I NX 


BUMP THE POINTER 

0505 

BD 

04 

92 


JSR 

SKIPSP 


0508 

DF 

44 



STX 

BUFPNT 


050A 

BD 

07 

55 

FIND1 

JSR 

BCDCON 


050D 

DF 

40 



STX 

TEMP 

SAVE POINTER 

050F 

DE 

4A 



LDX 

NEWPOS 


0511 

96 

90 



LDA A 

NUMBER 

GET NUMBER 

0513 

A1 

00 



CMP A 

0 r X 

COMPARE IT 

0515 

26 

OA 



BNE 

FIND14 


0517 

96 

91 



LDA A 

NUMBER+1 

GET NEXT NUM. 

0519 

A1 

01 



CMP A 

1*X 

COMPARE 

051B 

26 

04 



BNE 

FIND14 


05 ID 

96 

92 



LDA A 

NUMBER+2 


05 IF 

A1 

02 



CMP A 

2? X 


0521 

24 

03 


FIND14 

BCC 

FIND16 


0523 

7A 

00 

8C 


DEC 

DRCTN 

SET DIRECTION 

0526 

DE 

40 


FIND16 

LDX 

TEMP 

RESTORE POINTER 

0528 

BD 

07 

AB 


JSR 

FNDNUM 

FIND LINE NUMBER 

052B 

27 

B7 



BEG 

FINDL1 






TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN 

B1 

B2 

B3 






052D 

D7 

74 



STA 

B 

NOCURL 


052F 

7E 

07 

FO 


JMP 


BAKONE 


0532 

BD 

06 

63 

FIND2 

JSR 


TSTEND 


0535 

26 

OA 



BNE 


FIND3 


0537 

7D 

00 

76 


TST 


NXTFLG 

CHECK FLAG 

053A 

27 

A6 



BEQ 


FINDLO 


053C 

DE 

4A 



LDX 


NEWPOS 

SET POINTER 

053E 

7E 

08 

OF 


JMP 


UPONE 

UP ONE LINE 

0541 

81 

21 


FIND3 

CMP 

A 

#' ! 

IS IT A *!*? 

0543 

26 

08 



BNE 


FIND4 


0545 

08 




INX 



BUMP THE POINTER 

0546 

DF 

44 



STX 


BUFPNT 


0548 

DE 

99 



LDX 


FILEND 

SET POINTER 

054A 

7E 

07 

FO 


JMP 


BAKONE 

BACKUP ONE LINE 

054D 

81 

5E 


FIND4 

CMP 

A 


IS IT A •"'? 

054F 

26 

09 



BNE 


FIND5 


0551 

7A 

00 

00 

o 


DEC 


DRCTN 

SET DIRECTION 

0554 

08 




INX 



BUMP THE POINTER 

0555 

DF 

44 



STX 


BUFPNT 


0557 

DE 

97 



LDX 


FILBEG 

SET POINTER TO BEGIN 

0559 

39 




RTS 



RETURN 

055A 

81 

2B 


FIND5 

CMP 

A 

#' + 

IS IT A •+'? 

055C 

27 

07 



BEG 


FIND6 


055E 

81 

2D 



CMP 

A 


IS IT A *-•? 

0560 

26 

47 



BNE 


FIND7 


0562 

7A 

00 

8C 


DEC 


DRCTN 

DEC DIRECTION 

0565 

08 



FIND6 

INX 



BUMP THE POINTER 

0566 

BD 

07 

38 


JSR 


SKPCLS 

SKIP SPACES 

0569 

Cl 

01 



CMP 

B 

*1 

IS IT NUMBER? 

056B 

27 

OD 



BEG 


FIND62 


056D 

23 

3A 



BLS 


FIND7 


056F 

D6 

75 



LDA 

B 

LINFLG 

TEST FLAG 

0571 

27 

85 


'fA'TyA /• c f ,? 

BEG 


FINDT1 


0573 

BD 

07 

A3 


JSR 


CLRNUM 


0576 

DE 

4A 



LDX 


NEWPOS 

SET POINTER 

0578 

20 

1A 



BRA 


FIND66 


057A 

BD 

07 

55 

FIND62 

JSR 


BCDCON 

CONVERT NUMBER 

057D 

DE 

4A 



LDX 


NEWPOS 

SET POINTER 

057F 

7D 

00 

75 


TST 


LINFLG 

CHECK FLAG 

0582 

26 

08 



BNE 


FIND65 


0584 

BD 

08 

38 

FIND63 

JSR 


TSTNUM 

IS IT ZERO? 

0587 

27 

IF 



BEG 


FIND67 


0589 

BD 

08 

2A 


JSR 


DECNUM 

DEC NUMBER 

058C 

BD 

08 

38 

FIND65 

JSR 


TSTNUM 

TEST NUMBER 

058F 

27 

17 



BEG 


FIND67 


0591 

BD 

08 

2A 


JSR 


DECNUM 


0594 

BD 

06 

C3 

FIND66 

JSR 


NXTLIN 

GOTO NEXT LINE 

0597 

BD 

08 

21 


JSR 


TSTOVR 

CHECK LIMITS 

059A 

27 

FO 



BEG 


FIND65 


059C 

96 

73 



LDA 

A 

OVREND 

BEGINNING? 

059E 

26 

08 



BNE 


FIND67 


05AO 

BD 

08 

38 


JSR 


TSTNUM 


05A3 

26 

03 



BNE 


FIND67 


05A5 

7C 

00 

7F 


INC 


INLMFL 


05A8 

39 



FIND67 

RTS 



RETURN 
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LOCN 

B1 

B2 

B3 





05A9 

8D 

4F 


FIND7 

BSR 

SETDEL 

SET DELIMITER 

05AB 

8D 

6D 


FIN702 

BSR 

ZONE 

SET ZONE 

05AD 

DE 

4A 



LDX 

NEUPOS 

SET POINTER 

05AF 

BD 

06 

C3 


JSR 

NXTLIN 

GO TO NEXT 

05B2 

08 



FIND71 

INX 


BUMP POINTER 3 TIMES 

05B3 

08 




INX 



05B4 

08 




INX 



05B5 

BD 

06 

5A 

FIN711 

JSR 

FIXZON 

CHECK FOR POSTZONE 

05B8 

BD 

08 

2A 

FIND72 

JSR 

DECNUM 

DEC COLUMN COUNT 

05BB 

27 

22 



BEG 

FIND75 


05BD 

C6 

OD 



LDA B 

♦CRGRET 


05BF 

El 

00 



CMP B 

0 fX 

TEST FOR C«R« 

05C1 

27 

03 



BEG 

FIND73 


05C3 

08 




INX 


BUMP THE POINTER 

05C4 

20 

F2 



BRA 

FIND72 

REPEAT 

05C6 

96 

85 


FIND73 

LDA A 

CHGFLG 

CHECK IF CHANGE 

05C8 

26 

DE 



BNE 

FIND67 


05CA 

08 




INX 


BUMP THE POINTER 

05CB 

9C 

99 



CPX 

FILEND 

END OF FILE ? 

05CD 

27 

06 



BEG 

* + 08 


05CF 

09 




DEX 



05D0 

96 

85 


FIND74 

LDA A 

CHGFLG 


05D2 

26 

D4 



BNE 

FIND67 


05D4 

09 



<§> DEX 


DEC THE POINTER 

05D5 

BD 

06 

C3 


JSR 

NXTLIN 


05D8 

BD 

08 

21 


JSR 

TSTOVR 

CHECK LIMITS 

05DB 

26 

17 



BNE 

FIND77 


05DD 

20 

D3 



BRA 

FIND71 


05DF 

BD 

06 

5A 

FIND75 

JSR 

FIXZON 

FIX UP ZONE 

05E2 

BD 

06 

CD 


JSR 

STRING 

PROCESS STRING 

05E5 

7D 

00 

70 


TST 

FNDFLG 

FIND IT? 

05E8 

27 

E6 



BEG 

FIND74 


05EA 

5F 




CLR B 



05EB 

96 

85 



LDA A 

CHGFLG 


05ED 

26 

05 



BNE 

FIND77 


05EF 

BD 

07 

F6 


JSR 

BAK0N2 


05F2 

DF 

93 



STX 

TRGLIN 

SAVE TARGET POINTER 

05F4 

39 



FIND77 

RTS 


RETURN 

05F5 

86 

01 


FIND78 

LDA A 

*1 

SET FLAG 

05F7 

97 

73 



STA A 

OVREND 


05F9 

39 




RTS 


RETURN 





* SET 

UP DELIMITERS 



05FA 

97 

95 

SETDEL 

STA 

A 

DELIM 

SAVE 

DELIMITER 

05FC 

5F 



CLR 

B 




05FD 

08 



INX 



BUMP 

THE POINTER 

05FE 

DF 

4E 


STX 


STRNGB 

SAVE 

BEGINNING 

0600 

A6 

00 

SETDE2 

LDA 

A 

0»X 

GET A 

CHARACTER 

0602 

8D 

5F 


BSR 


TSTEND 



0604 

27 

08 


BEG 


SETDE4 



0606 

91 

95 


CMP 

A 

DELIM 

IS IT 

A DELIMITER? 

0608 

27 

04 


BEG 


SETDE4 



060A 

08 



INX 



BUMP 

THE POINTER 





T8C 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN 

B1 

B2 

B3 

060B 

SC 



060C 

20 

F2 


060E 

DF 

50 


0610 

D7 

7B 


0612 

8D 

4F 


0614 

27 

01 


0616 

08 



0617 

DF 

44 


0619 

39 



061A 

BD 

07 

3B 

061D 

7F 

00 

6D 

0620 

Cl 

01 


0622 

26 

17 


0624 

BD 

07 

55 

0627 

8D 

IB 


0629 

25 

10 


062B 

8D 

22 


062D 

22 

OC 


062F 

7C 

00 

6D 

0632 

96 

90 


0634 

97 

62 


0636 

96 

91 


0638 

97 

63 


063A 

39 



063B 

96 

5E 


063D 

97 

62 


063F 

96 

5F 


0641 

97 

63 


0643 

39 




SETDE4 


SETDE5 


INC B 

BRA 

STX 

STA B 

BSR 

BEQ 

INX 

STX 

RTS 


* SET UP ZONE 


ZONE 


Z0NE3 


JSR 
CLR 
CMP B 
BNE 
JSR 
BSR 
BCS 
BSR 
BHI 
INC 
LDA 
STA 
LDA 
STA 
RTS 
LDA 
STA 
LDA 
STA 
RTS 


A 

A 

A 

A 

A 

A 

A 

A 



BUMB COUNTER 

SETDE2 

REPEAT 

STRNGE 

STRCNT 

TSTEND 

SETDE5 

BUFPNT 

SAVE END OF STRING 

BUMP THE POINTER 

RETURN 

CLASS 

GO CLASSIFY CHAR. 

PSTZFL 

CLEAR FLAG 

*1 

Z0NE3 

IS IT A NUMBER 

BCDCON 

CONVERT NUMBER 

CMPZN1 

Z0NE3 

CHECK Z0NE1 

CMPZN2 

Z0NE3 

CHECK Z0NE2 

PSTZFL 

SET FLAG 

NUMBER 

ZONBUF 

NUMBER+1 

ZONBUF+1 

PUT NUM IN ZONE BUF 

RETURN 

Z0NE1 

ZONBUF 

Z0NE1+1 

ZONBUF+1 

PUT Z0NE1 IN BUF. 


RETURN 


* COMPARE Z0NE1 TO NUMBER 


0644 

D6 

90 

CMPZN1 

LDA 

B 

NUMBER 

GET NUMBER 

0646 

D1 

5E 


CMP 

B 

Z0NE1 

CHECK 

0648 

26 

04 


BNE 


CMPZ14 


064A 

D6 

91 


LDA 

B 

NUMBER+1 


064C 

D1 

5F 


CMP 

B 

Z0NE1+1 


064E 

39 


CMPZ14 

RTS 



RETURN 




* COMPARE Z0NE2 TO NUMBER 

064F 

D6 

90 

CMPZN2 

LDA 

B 

NUMBER 

GET NUMBER 

0651 

D1 

60 


CMP 

B 

Z0NE2 

CHECK 

0653 

26 

04 


BNE 


CMPZ24 


0655 

D6 

91 


LDA 

B 

NUMBER+1 


0657 

D1 

61 


CMP 

B 

Z0NE2+1 


0659 

39 


CMPZ24 

RTS 



RETURN 
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LOCN B1 B2 B3 

* PUT CORRECT ZONE IN NUMBER 


065A 

96 

62 

FIXZON LDA 

A 

ZONBUF 

GET ZONE 

065C 

97 

90 

STA 

A 

NUMBER 

PUT IN NUMBER 

06SE 

96 

63 

LDA 

A 

ZONBUF+1 


0660 

97 

91 

STA 

A 

NUMBER+1 


0662 

39 


RTS 



RETURN 





* TEST 

TERMINATOR <C,R, 

OR EOL) 

0663 

81 

OD 

TSTEND 

CMP A 

♦CRGRET 

IS IT C,R,? 

0665 

27 

02 


BEQ 

TSTEN2 


0667 

91 

B5 


CMP A 

EOL 


0669 

39 


TSTEN2 

RTS 


RETURN 





* BUMP 

NUMBER 

BY If ,lr 

OR ,01 

066A 

86 

01 

BMPNUM 

LDA 

A 

*1 


066C 

D6 

7C 


LDA 

B 

INCAMT 

CHECK AMOUNT 

066E 

27 

OC 


BEQ 


INCNUM 


0670 

2A 

02 


BPL 


BMPNU4 


0672 

86 

10 


LDA 

A 

#*10 

SET BUMP 

0674 

9B 

92 

BMPNU4 

ADD 

A 

NUMBER+2 

ADD IN 

0676 

19 



DAA 



ADJUST IT 

0677 

97 

92 


STA 

A 

NUMBER+2 

SAVE 

0679 

25 

01 


BCS 


INCNUM 


067B 

39 



RTS 



RETURN 


* INCREMENT NUMBER BY ONE 


067C 

86 

01 

INCNUM LDA 

A 

#1 

SET UP ONE 

067E 

5F 


CLR 

B 



067F 

9B 

91 

ADD 

A 

NUMBER+1 

ADD IN ONE 

0681 

19 


DAA 



ADJUST IT 

0682 

97 

91 

STA 

A 

NUMBER+1 

SAVE IT 

0684 

17 


TBA 




0685 

99 

90 

ADC 

A 

NUMBER 


0687 

19 


DAA 



ADJUST NUMBER 

0688 

97 

90 

STA 

A 

NUMBER 


068A 

39 


RTS 



RETURN 





* PUT NUMBER 

AT X 


068B 

96 

90 

PUTNUM LDA 

A 

NUMBER 

GET NUMBER 

068D 

A7 

00 

STA 

A 

OfX 

SAVE IT 

068F 

96 

91 

LDA 

A 

NUMBER+1 


0691 

A7 

01 

STA 

A 

lrX 


0693 

96 

92 

LDA 

A 

NUMBER+2 


0695 

A7 

02 

STA 

A 

2r X 


0697 

39 


RTS 



RETURN 
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LOCN B1 B2 B3 

* GET NUMBER FROM X 


0698 

A6 

00 

GETNUM LDA 

A 

0 r X 

GET NUMBER 

069A 

97 

90 

STA 

A 

NUMBER 

SAVE IT 

069C 

A6 

01 

LDA 

A 

lrX 


069E 

97 

91 

STA 

A 

NUMBER+1 


06A0 

A6 

02 

LDA 

A 

2rX 


06A2 

97 

92 

STA 

A 

NUMBER+2 


06A4 

39 


RTS 



RETURN 






* RENUMBER FILE 


06A5 

BD 

09 

A4 

RENUMB 

JSR 

TFORCR 


06A8 

DE 

97 



LDX 

FILBEG 

SET POINTER 

06AA 

7F 

00 

7C 

RENUM1 

CLR 

INCAMT 


06AD 

BD 

07 

A3 


JSR 

CLRNUM 

CLEAR NUMBER 

06B0 

8D 

B8 


RENUM2 

BSR 

BMPNUM 

BUMP NUMBER 

06B2 

8D 

D7 



BSR 

PUTNUM 

SAVE IT 

06B4 

BD 

08 

OF 


JSR 

UPONE 


06B7 

96 

73 



LDA A 

OVREND 

HIT LIMIT? 

06B9 

27 

F5 



BEG 

RENUM2 

REPEAT 

06BB 

96 

83 



LDA A 

CHKFLG 

CHECK FLAG 

06BD 

27 

01 



BEG 

RENUM4 


06BF 

39 




RTS 


RETURN 

06C0 

7E 

08 

A2 

RENUM4 

JMP 

PRINT6 

RETURN 






* GO TO 

NEXT 

LINE 



06C3 

96 

8C 


NXTLIN 

LDA 

A DRCTN 

CHECK 

DIRECTION 

06C5 

2B 

03 



BMI 

NXTLI2 



06C7 

7E 

08 

OF 


JMP 

UPONE 

MOVE 

UP ONE 

06CA 

7E 

07 

FO 

NXTLI2 

JMP 

BAKONE 

MOVE 

BACK ONE 






* PROCESS STRING ROUTINE 


06CD 

7F 

00 

70 

STRING 

CLR 


FNDFLG 

CLEAR FLAG 

06D0 

D6 

7B 



LDA 

B 

STRCNT 


06D2 

26 

06 



BNE 


STRIN1 


06D4 

7C 

00 

70 


INC 


FNDFLG 

FOUND NULL STRING 

06D7 

DF 

SC 



STX 


LASTNO 

SAVE POINTER 

06D9 

39 




RTS 



RETURN 

06DA 

C6 

OD 


STRIN1 

LDA 

B 

♦CRGRET 


06DC 

DF 

4C 



STX 


SRCHPT 

SAVE POINTER 

06DE 

DF 

5C 



STX 


LASTNO 

SAVE POINTER 

06E0 

DE 

4E 



LDX 


STRNGB 

POINT TO BEGIN 

06E2 

DF 

56 


STRIN2 

STX 


STRPNT 

SAVE POINTER 

06E4 

A6 

00 



LDA 

A 

0»X 

GET A CHARACTER 

06E6 

DE 

4C 



LDX 


SRCHPT 

RESTORE POINTER 

06E8 

El 

00 


STRIN3 

CMP 

B 

OfX 

C. RET * ? 

06EA 

27 

ID 



BEG 


STRIN4 

..'T ?.- ' . 

06EC 

A1 

00 



CMP 

A 

0»X 

COMP. CHAR. 












* 



TSC 6800 

TEXT EDITING 

SYSTEM 



LOCN 

B1 

B2 

B3 





06EE 

27 

ID 



BEG 

STRIN5 


06F0 

7D 

00 

6D 


TST 

PSTZFL 

POST ZONE? 

06F3 

26 

14 



BNE 

STRIN4 


06F5 

7D 

00 

70 


TST 

FNDFLG 

FOUND? 

06F8 

26 

oo 

Am Am 



BNE 

STRIN6 


06FA 

08 




INX 


BUMP THE POINTER 

06FB 

DF 

5C 



STX 

LASTNO 

SAVE IT 

06FD 

36 




PSH A 


SAVE ACC, 

06FE 

37 




PSH B 



06FF 

BD 

06 

7C 


JSR 

INCNUM 

INC NUMBER 

0702 

BD 

06 

4F 


JSR 

CMPZN2 

CHECK Z0NE2 

0705 

33 




PUL B 


RESTORE ACC 

0706 

32 




PUL A 



0707 

23 

DF 



BLS 

STRIN3 


0709 

7F 

00 

70 

STRIN4 

CLR 

FNDFLG 

CLEAR FLAG 

070C 

39 




RTS 


RETURN 

070D 

08 



STRIN5 

INX 



070E 

DF 

4C 



STX 

SRCHPT 

SAVE IT 

0710 

7C 

00 

70 


INC 

FNDFLG 

SET FLAG 

0713 

DE 

56 



LDX 

STRPNT 

POINT TO STRING 

0715 

08 




INX 


BUMP THE POINTER 

0716 

9C 

50 



CPX 

STRNGE 

END OF STRING? 

0718 

27 

OF 



BEG 

STRIN7 


071A 

20 

C6 



BRA 

STRIN2 


071C 

DE 

5C 


STRIN6 

LDX 

LASTNO 

RESTORE POINTER 

071E 

08 




INX 



071F 

BD 

06 

7C 


JSR 

INCNUM 

BUMP NUMBER 

0722 

BD 

06 

4F 


JSR 

CMPZN2 

CHECK ZONE 

0725 

23 

A6 



BLS 

STRING 


0727 

20 

EO 



BRA 

STRIN4 


0729 

D6 

7B 


STRIN7 

LDA B 

STRCNT 

GET COUNT 

072B 

27 

08 


STRIN8 

BEG 

STRIN9 


072D 

37 




PSH B 


SAVE 

072E 

BD 

06 

7C 


JSR 

INCNUM 

FIX COL 

0731 

33 




PUL B 



0732 

5A 




DEC B 


DEC COUNT 

0733 

26 

F6 



BNE 

STRIN8 


0735 

DE 

5C 


STRIN9 

LDX 

LASTNO 


0737 

39 




RTS 


RETURN 





* SKIP 

AND CLASSIFY 


0738 

BD 

04 

92 

SKPCLS 

JSR 

SKIPSP 






* CLASSIFY CHARACTER 


073B 

DF 

44 


CLASS 

STX 

BUFPNT 

SAVE POINTER 

073D 

A6 

00 



LDA A 

0 r X 

GET CHARACTER 

073F 

5F 




CLR B 



0740 

81 

2F 



CMP A 

#*2F 

CHECK IF NUMBER 

0742 

23 

10 



BLS 

CLASS4 


0744 

81 

39 



CMP A 

*'<? 


0746 

22 

02 



BHI 

CLASS2 



19 





TSC 6800 TEXT EDITING SYSTEM 
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LOCN 

B1 

B2 B3 






0748 

5C 



INC 

B 


SHOW NUMBER 

074? 

3? 



RTS 



RETURN 

074A 

81 

40 

CLASS2 

CMP 

A 

#♦40 

CHECK IF LETTER 

074C 

23 

06 


BLS 


CLASS4 


074E 

81 

5A 


CMP 

A 

♦ 'Z 


0750 

22 

02 


BHI 


CLASS4 


0752 

C6 

02 


LDA 

B 

#2 

SHOW LETTER 

0754 

3? 


CLASS4 

RTS 



RETURN 





* CONVERT ASCII TO BCD 


0755 

8D 

4C 

BCDCON 

BSR 


CLRNUM 

CLEAR NUMBER 

0757 

8D 

E2 

BCDC01 

BSR 


CLASS 

CLASSIFY CHAR* 

0759 

Cl 

01 


CMP 

B 

#1 

IS IT A NUMBER? 

075B 

27 

07 


BEQ 


BCDC02 


075D 

81 

2E 


CMP 

A 

♦ '. 

IS IT A ■*'? 

075F 

27 

17 


BEQ 


BCDC05 


0761 

DF 

44 

BCDC15 

STX 


BUFPNT 

SAVE POINTER 

0763 

39 



RTS 



RETURN 

0764 

08 


BCDC02 

INX 



BUMP THE POINTER 

0765 

84 

OF 


AND 

A 

♦♦OF 

MASK ASCII 

0767 

C6 

04 


LDA 

B 

#4 

SET COUNTER 

076? 

78 

00 91 

BCDC04 

ASL 


NUMBER+1 


076C 

79 

00 90 


ROL 


NUMBER 

SHIFT EVERYTHING LEFT 

076F 

5A 



DEC 

B 


DEC THE COUNTER 

0770 

26 

F7 


BNE 


BCDC04 


0772 

?B 

91 


ADD 

A 

NUMBER+1 

ADD IN NUMBER 

0774 

97 

91 


STA 

A 

NUMBER+1 


0776 

20 

DF 


BRA 


BCDC01 


0778 

C6 

02 

BCDC05 

LDA 

B 

#2 

SET COUNTER 

077A 

D7 

89 


STA 

B 

DECCNT 


077C 

08 


BCDC06 

INX 



BUMP THE POINTER 

077D 

8D 

BC 


BSR 


CLASS 

CLASSIFY CHAR* 

077F 

Cl 

01 


CMP 

B 

#1 

IS IT NUMBER? 

0781 

27 

04 


BEQ 


BCDC65 


0783 

4F 



CLR 

A 



0784 

0? 



DEX 



DEC THE POINTER 

0785 

20 

02 


BRA 


BCDC67 


0787 

84 

OF 

BCDC65 

AND 

A 

♦ ♦OF 

MASK ASCII 

0789 

C6 

04 

BCDC67 

LDA 

B 

♦4 

SET COUNTER 

078B 

78 

00 92 

BCDC07 

ASL 


NUMBER+2 


078E 

5A 



DEC 

B 



078F 

26 

FA 


BNE 


BCDC07 


0791 

9B 

92 


ADD 

A 

NUMBER+2 


0793 

97 

92 


STA 

A 

NUMBER+2 


0795 

7A 

00 8? 


DEC 


DECCNT 

DEC COUNTER 

0798 

26 

E2 


BNE 


BCDC06 


079A 

08 


BCDC08 

INX 



BUMP THE POINTER 

079B 

8D 

9E 


BSR 


CLASS 

CLASSIFY CHAR* 

079D 

Cl 

01 


CMP 

B 

♦ 1 

IS IT NUMBER? 

079F 

27 

F? 


BEQ 


BCDC08 


07A1 

20 

BE 


BRA 


BCDC15 





TSC 6800 TEXT EDITING SYSTEM 


PAGE 21 


LOCN 

B1 

B2 B3 

* CLEAR 

NUMBER 

ROUTINE 


07A3 

4F 


CLRNUM 

CLR A 


CLEAR ACC* 

07A4 

97 

90 


STA A 

NUMBER 


07A6 

97 

91 


STA A 

NUMBER+1 

CLEAR ALL OUT 

07A8 

97 

92 


STA A 

NUMBER+2 


07AA 

39 



RTS 


RETURN 






* FIND 

NUMBERED LINE 


07AB 

D6 

90 


FNDNUM 

LDA 

B 

NUMBER 

GET DIGIT 

07AD 

96 

91 



LDA 

A 

NUMBER+1 


07AF 

DE 

97 



LDX 


FILBEG 

SET POINTER TO BEGIN 

07B1 

9C 

99 


FNDNU1 

CPX 


FILEND 

END OF FILE? 

07B3 

26 

05 



BNE 


FNDNU4 


07B5 

7C 

00 

73 


INC 


OVREND 

SET ERROR FLAG 

07B8 

5C 



FNDNU2 

INC 

B 



07B9 

39 




RTS 



RETURN 

07BA 

El 

00 


FNDNU4 

CMP 

B 

OrX 

COMPARE DIGIT 

07BC 

22 

1C 



BHI 


FNDNU5 


07BE 

26 

F8 



BNE 


FNDNU2 


07C0 

A1 

01 



CMP 

A 

lrX 

COMP NEXT DIGIT 

07C2 

22 

16 



BHI 


FNDNU5 


07C4 

26 

F2 



BNE 


FNDNU2 


07C6 

D6 

92 



LDA 

B 

NUMBER+2 

NEXT DIGIT 

07C8 

El 

02 



CMP 

B 

2r X 

CHECK DIGIT 

07CA 

22 

OE 



BHI 


FNDNU5 


07CC 

26 

EA 



BNE 


FNDNU2 


07CE 

7D 

00 

84 


TST 


SNGLIN 


07D1 

26 

05 



BNE 


FNDN45 


07D3 

7D 

00 

83 


TST 


CHKFLG 


07D6 

26 

EO 



BNE 


FNDNU2 


07D8 

5F 



FNDN45 

CLR 

B 



07D9 

39 




RTS 



RETURN 

07DA 

7D 

00 

83 

FNDNU5 

TST 


CHKFLG 


07DD 

26 

F9 



BNE 


FNDN45 


07DF 

8D 

05 



BSR 


FNDCRT 

FIND C.R. 

07E1 

D6 

90 



LDA 

B 

NUMBER 

RESTORE NUM 

07E3 

08 




INX 



BUMP THE POINTER 

07E4 

20 

CB 



BRA 


FNDNU1 

REPEAT 





* FIND 

THE 1 

NEXT CARRIAGE 

RETURN 

07E6 

36 


FNDCRT 

PSH 

A 

SAVE ACC. 

07E7 

86 

OD 


LDA 

A #CRGRET 


07E9 

08 


FNDCR2 

INX 


BUMP THE POINTER 

07EA 

A1 

00 


CMP 

A OrX 

CHECK FOR C.R. 

07EC 

26 

FB 


BNE 

FNDCR2 


07EE 

32 



PUL 

A 

RESTORE ACC. 

07EF 

39 



RTS 


RETURN 




* MOVE 

BACK 

ONE LINE 







TSC 6800 

TEXT 1 

EDITING ! 

SYSTEM 



LOCN 

B1 

B2 

B3 






07F0 

9C 

97 


BAKONE 

CPX 


FILBEG 


07F2 

27 

17 



BEQ 


BAK0N6 


07F4 

C6 

01 



LDA 

B 

*1 

SET COUNTER 

07F6 

09 



BAK0N2 

DEX 



DEC THE POINTER 

07F7 

9C 

97 



CPX 


FILBEG 

BEGINNING? 

07F9 

27 

OD 



BEQ 


BAK0N5 


07FB 

A6 

00 



LDA 

A 

0 r X 

GET A CHAR. 

07FD 

81 

OD 



CMP 

A 

♦CRGRET 

IS IT C.R.? 

07FF 

26 

F5 



BNE 


BAK0N2 


0801 

5A 




DEC 

B 


DEC THE COUNTER 

0802 

2A 

F2 



BPL 


BAK0N2 


0804 

08 




INX 



BUMP THE POINTER 

0805 

C6 

01 



LDA 

B 

#1 


0807 

39 



BAK0N4 

RTS 



RETURN 

0808 

5D 



BAK0N5 

TST 

B 



0809 

27 

FC 



BEQ 


BAK0N4 


080B 

7C 

00 

72 

BAK0N6 

INC 


OVRBEG 

SET ERROR FLAG 

080E 

39 




RTS 



RETURN 





* MOVE 

UP ONE 

LINE 


080F 

9C 

99 

UPONE 

CPX 


FILEND 

END OF FILE? 

0811 

26 

06 


BNE 


UP0NE2 


0813 

C6 

01 

UP0NE1 

LDA 

B 

*1 

SET ERROR FLAG 

0815 

D7 

73 


STA 

B 

OVREND 


0817 

20 

D7 


BRA 


BAKONE 


0819 

8D 

CB 

UP0NE2 

BSR 


FNDCRT 

FIND NEXT C.R. 

081B 

08 



INX 



BUMP THE POINTER 

081C 

9C 

99 


CPX 


FILEND 

END? 

08 IE 

27 

F3 


BEQ 


UP0NE1 


0820 

39 



RTS 



RETURN 






* TEST 

FOR i 

OVER END LIMITS 

0821 

0824 

7D 

26 

00 

03 

72 

TSTOVR 

TST 

BNE 

OVRBEG 

TST0V2 

BEGINNING? 

0826 

0829 

7D 

39 

00 

73 

TST0V2 

TST 

RTS 

OVREND 

END? 

RETURN 





* DECREMENT 

NUMBER BY ONE 


082A 

86 

99 

DECNUM LDA 

A 

#*99 



082C 

16 


TAB 



SET UP 

*9999 

082D 

9B 

91 

ADD 

A 

NUMBER+1 

ADD IN 


082F 

19 


DAA 



ADJUST 

IT 

0830 

97 

91 

STA 

A 

NUMBER+1 

SAVE 


0832 

17 


TBA 





0833 

99 

90 

ADC 

A 

NUMBER 



0835 

19 


DAA 





0836 

97 

90 

STA 

A 

NUMBER 







TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN B1 B2 B3 


0838 96 90 
083A 26 02 
083C 96 91 
083E 39 


* TEST NUMBER FOR ZERO 

TSTNUM LDA A NUMBER 
BNE TSTNU2 
LDA A NUMBER+1 
TSTNU2 RTS 


CHECK IF ZERO 


RETURN 


* VERIFY LINE ROUTINE 


c 


c 


083F 

DF 

4A 

0841 

BD 

07 

0844 

DF 

5A 

0846 

4F 


0847 

97 

8D 

0849 

09 


084A 

09 


084B 

09 


084C 

09 


084D 

E6 

00 

084F 

Cl 

OD 

0851 

27 

09 

0853 

E6 

03 

0855 

Cl 

20 

0857 

26 

03 

0859 

4C 


085A 

20 

FO 

085C 

97 

8E 

085E 

08 


085F 

08 


0860 

08 


0861 

08 


0862 

DF 

58 

0864 

BD 

on 

0867 

DE 

4A 

0869 

96 

6B 

086B 

27 

05 

086D 

8D 

40 

086F 

BD 

07 

0872 

DF 

48 

0874 

DF 

4A 

0876 

39 


0877 

8D 

2F 

0879 

DE 

44 

087B 

BD 

04 

087E 

DE 

4A 

0880 

7C 

00 

0883 

DF 

48 

0885 

9C 

93 

0887 

26 

03 


VERLIN 


VERLI1 

VERL12 


VERL15 


VERLI2 


STX 

JSR 

STX 

CLR A 

STA A 

DEX 

DEX 

DEX 

DEX 

LDA B 

CMP B 

BEQ 

LDA B 

CMP B 

BNE 

INC A 

BRA 

STA A 

INX 

INX 

INX 

INX 

STX 

JSR 

LDX 

LDA A 

BEQ 

BSR 

JSR 

STX 

STX 

RTS 


NEWPOS 

FNDCRT 

SPCPT2 

CHRCNT 


OrX 

♦CRGRET 
VERL15 
3 f X 

*' 

VERL15 

VERL12 

CHRCNT+1 


SPCPT1 

DELCHR 

NEWPOS 

VERFLG 

VERLI2 

OUTLIN 

BAKONE 

CURPOS 

NEWPOS 


* PRINT ROUTINE 


PRINT 


PRINTO 


PRINTI 


BSR 

LDX 

JSR 

LDX 

INC 

STX 

CPX 

BNE 


TSTEMP 

BUFPNT 

FINDT 

NEWPOS 

PRNFLG 

CURPOS 

TRGLIN 

PRIN12 


SAVE POINTER 
SAVE POSITION 

DEC POINTER 


DEC THE POINTER 
CHECK CHAR 
IS IT C.R.? 

CHECK 

IS IT A SPACE? 


SAVE COUNT 

BUMP POINTER 

DELETE SPACES 

CHECK FLAG 

OUTPUT LINE 
BACKUP ONE LINE 
SAVE POINTER 

RETURN 


SET POINTER 
FIND TARGET 
SET POINTER 
SET FLAG 
SAVE IT 
TARGET LINE? 


23 






TSC 6800 TEXT EDITING SYSTEM 


LOCN 

B1 

B2 

B3 






088? 

7F 

00 

8A 


CLR 


PRNFLG 

CLEAR FLAG 

088C 

8D 

21 


PRIN12 

BSR 


OUTLIN 


088E 

96 

8A 



LDA 

A 

PRNFLG 

CHECK FLAG 

0890 

27 

OB 



BEQ 


PRINT5 


0892 

96 

8C 



LDA 

A 

DRCTN 

CHECK DIRECTION 

0894 

27 

EF 



BEQ 


PRINT1 


0896 

0? 




DEX 



DEC POINTER TWICE 

0897 

09 




DEX 




0898 

BD 

07 

FO 


JSR 


BAKONE 

MOVE BACK ONE 

089B 

20 

E8 



BRA 


PRINT1 


089D 

BD 

07 

FO 

PRINTS 

JSR 


BAKONE 

MOVE BACK ONE 

08A0 

DF 

48 



STX 


CURPOS 

SAVE POINTER 

08A2 

BD 

0? 

B5 

PRINT6 

JSR 


TSTMSL 


08AS 

7E 

03 

8A 


JMP 


EDIT 

RETURN 





* TEST 

IF FILE 

EMPTY 

08A8 

DE 

97 

TSTEMP 

LDX 

FILBEG 

08AA 

9C 

99 


CPX 

FILEND 

08AC 

27 

F4 


BEQ 

PRINT6 

08AE 

39 



RTS 







* OUTPUT ONE LINE 


08AF 

BD 

04 

4E 

OUTLIN 

JSR 


PCRLF 


08B2 

96 

6A 



LDA 

A 

NUMFLG 


08B4 

26 

06 



BNE 


0UTL15 


08B6 

8D 

15 



BSR 


OUTSPC 

OUTPUT SPACE 

08B8 

08 




INX 



BUMP THE POINTER 

08B9 

08 




INX 




OBBA 

20 

03 



BRA 


0UTLI2 


08BC 

8D 

16 


0UTL15 

BSR 


OUTBCD 

OUTPUT LINE NO. 

08BE 

0? 




DEX 




08BF 

08 



0UTLI2 

INX 



u 

08C0 

A6 

00 



LDA 

A 

OrX 

GET A CHAR. 

08C2 

81 

OD 



CMP 

A 

♦CRGRET 

IS IT C.R.? 

08C4 

27 

05 



BEQ 


0UTU4 


08C6 

BD 

02 

0? 


JSR 


OUTCH 

OUTPUT IT 

08C? 

20 

F4 



BRA 


0UTLI2 

REPEAT 

08CB 

08 



0UTLI4 

INX 



BUMP THE POINTER 

08CC 

39 




RTS 



RETURN 





* OUTPUT A SPACE 


08CD 

86 

20 

OUTSPC LDA A #' 

LOAD UP SPACE 

08CF 

BD 

02 0? 

JSR OUTCH 

OUTPUT IT 

08D2 

OC 


CLC 


08D3 

3? 


RTS 

RETURN 


PAGE 



2 4 


* OUTPUT A BCD NUMBER 





TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN 

B1 

B2 B3 





08D4 

96 

6A 

OUTBCD 

LDA A 

NUMFLG 

CHECK FLAG 

08D6 

27 

2E 


BEG 

0UTB75 


08D8 

8D 

F3 


BSR 

OUTSPC 

OUTPUT A SPACE 

08DA 

C6 

02 


LDA B 

♦2 

SET COUNTER 

08DC 

OC 



CLC 



08DD 

A6 

00 

0UTBC2 

LDA A 

OrX 

GET CHAR* 

08DF 

85 

FO 


BIT A 

♦ ♦FO 

MASK 

08E1 

25 

02 


BCS 

0UTBC3 


08E3 

27 

06 


BEG 

0UTB35 


08E5 

BD 

09 13 

0UTBC3 

JSR 

OUTHL 

OUTPUT DIGIT 

08E8 

OD 



SEC 


SET FLAG 

08E9 

20 

02 


BRA 

0UTBC4 


08EB 

8D 

EO 

0UTB35 

BSR 

OUTSPC 


08ED 

A6 

00 

0UTBC4 

LDA A 

0»X 

GET DIGIT 

08EF 

05 

FE 


BIT B 

♦ ♦FE 

CHECK IF DONE 

08F1 

27 

06 


BEG 

0UTBC6 


08F3 

85 

OF 


BIT A 

♦ ♦OF 

MASK 

08F5 

25 

02 


BCS 

0UTBC6 


08F7 

27 

05 


BEG 

0UTB65 


08F9 

8D 

1C 

0UTBC6 

BSR 

OUTHR 

OUTPUT DIGIT 

08FB 

OD 



SEC 



08FC 

20 

02 


BRA 

0UTBC7 


08FE 

8D 

CD 

0UTB65 

BSR 

OUTSPC 


0900 

08 


0UTBC7 

INX 


BUMP THE POINTER 

0901 

5A 



DEC B 


DEC THE COUNTER 

0902 

27 

07 


BEG 

0UTBC8 


0904 

2A 

D7 


BPL 

0UTBC2 


0906 

86 

3D 

0UTB75 

LDA A 

♦ ' = 


0908 

7E 

02 09 

0UTB78 

JMP 

OUTCH 

OUTPUT A '=■ 

090B 

86 

2E 

0UTBC8 

LDA A 

♦ ' ♦ 

OUTPUT A *.* 

090D 

BD 

02 09 


JSR 

OUTCH 


0910 

OD 



SEC 



0911 

20 

CA 


BRA 

0UTBC2 

GO FINISH 




* OUTPUT DIGITS ROUTINE 


0913 

44 


OUTHL 

LSR A 


SHIFT LEFT FOUR TIMES 

0914 

44 



LSR A 



0915 

44 



LSR A 



0916 

44 



LSR A 



0917 

84 

OF 

OUTHR 

AND A 

♦ ♦OF 

MASK 

0919 

8B 

30 


ADD A 

♦ ♦30 

MAKE ASCII 

091B 

20 

EB 


BRA 

0UTB78 






* SET 

NUMBERS 

ON OR OFF 



091D 

8D 

18 

NUMSET 

BSR 


ONOFF 

GET 

ON OFF 

091F 

27 

07 


BEG 


NUMSE2 



0921 

2B 

OA 


BMI 


NUMSE4 



0923 

7F 

00 6A 


CLR 


NUMFLG 

CLEAR FLAG 

0926 

20 

08 


BRA 


NUMSE6 



0928 

43 


NUMSE2 

• COM 

A 


COM. 

FLAG 

0929 

97 

6A 


STA 

A 

NUMFLG 

SAVE 

IN FLi 
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LOCN 

B1 

B2 

B3 



092B 

20 

03 



BRA 

092D 

73 

00 

6A 

NUMSE4 

COM 

0930 

DE 

4A 


NUMSE6 

LDX 

0932 

DF 

48 



STX 

0934 

7E 

08 

A2 


JMP 





* CHECK 

FOR 

0937 

DE 

44 


ONOFF 

LDX 

0939 

BD 

04 

92 


JSR 

093C 

DF 

44 



STX 

093E 

DF 

40 



STX 

0940 

CE 

09 

46 


LDX 

0943 

7E 

04 

00 


JMP 





* TABLE 

FOR 

0946 

4F 



ONOFTB 

FCC 

0947 

4E 





0948 

00 




FCB 

0949 

09 

56 



FDB 

094B 

4F 




FCC 

094C 

46 





094D 

46 





094E 

00 




FCB 

094F 

09 

58 



FDB 

0951 

OD 




FCB 

0952 

00 




FCB 

0953 

09 

5B 



FDB 

0955 

00 


* 


FCB 


NUMSE6 

NUMFLG 

NEWPOS 

CURPOS 

PRINT6 


BUFPNT 

SKIPSP 

BUFPNT 

TEMP 

♦ONOFTB 

EDIT6 


'ON 7 

0 

ON 

'OFF' 


0 

OFF 

CRGRET 

0 

TOGGLE 

0 


COM FLAG 
SET POINTER 


SET POINTER 
SKIP SPACES 
SAVE POINTER 

POINT TO TABLE 


* ON OFF ROUTINES 




0956 

4F 


ON 

CLR 

A 



0957 

39 



RTS 



RETURN 

0958 

86 

01 

OFF 

LDA 

A 

♦ 1 

SET FLAG 

095A 

39 



RTS 



RETURN 

095B 

DE 

44 

TOGGLE 

LDX 


BUFPNT 


095D 

09 



DEX 




095E 

DF 

44 


STX 


BUFPNT 

FIX 

0960 

86 

FF 


LDA 

A 

♦♦FF 

SET FLAG 

0962 

39 



RTS 



RETURN 




* SET « 

VERIFY FLAG 


0963 

8D 

D2 

VERSET 

BSR 


ONOFF 

CHECK ON OFF 

0965 

27 

07 


BEG 


VERSE2 


0967 

2B 

OA 


BMI 


VERSE4 


0969 

7F 

00 6B 


CLR 


VERFLG 

CLEAR FLAG 

096C 

20 

08 


BRA 


VERSE6 


096E 

43 


VERSE2 

COM 

A 




L 
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c 


c 


LOCN 

B1 

B2 

B3 




096F 

97 

6B 



STA A 

VERFLG 

0971 

20 

03 



BRA 

VERSE6 

0973 

73 

00 

6B 

VERSE4 

COM 

VERFLG 

0976 

20 

B8 


VERSE6 

BRA 

NUMSE6 





* CURSOR CONTROL COMMAND 

0978 

8D 

2A 


XCNTRL 

BSR 

TFORCR 

097A 

CE 

09 

82 


LDX 

♦CNRSTR 

097D 

BD 

04 

85 


JSR 

PDATA1 

0980 

20 

AE 



BRA 

NUMSE6 

0982 

00 



CNRSTR 

FCB 

o 

o 

o 

o 

o 

0983 

00 






0984 

00 






0985 

00 






0986 

00 






0987 

00 






0988 

04 




FCB 

4 





* EXIT 

ROUTINE 

0989 

8D 

19 


EXIT 

BSR 

TFORCR 

098B 

7E 

EO 

DO 


JMP 

MIKBUG 





* SET POINTER 

TO BOTTOM 

098E 

8D 

14 


BOTTOM 

BSR 

TFORCR 

0990 

BD 

08 

A8 

BOTTOl 

JSR 

TSTEMP 

0993 

DE 

99 



LDX 

FILEND 

0995 

BD 

07 

FO 


JSR 

BAKONE 

0998 

DF 

48 


B0TT02 

STX 

CURPOS 

099A 

7E 

08 

A2 


JMP 

PRINT6 





* SET POINTER 

TO TOP 

099D 

8D 

05 


TOP 

BSR 

TFORCR 

099F 

BD 

08 

A8 


JSR 

TSTEMP 

09A2 

20 

F4 



BRA 

B0TT02 





* TEST 

OR C.R. 


09A4 

DE 

44 


TFORCR 

LDX 

BUFPNT 

09A6 

BD 

04 

92 


JSR 

SKIPSP 

09A9 

81 

OD 



CMP A 

♦CRGRET 

09AB 

27 

04 



BEQ 

TF0RC2 

09AD 

91 

B5 



CMP A 

EOL 

09AF 

26 

01 



BNE 

TF0RC3 

09B1 

39 



TF0RC2 

RTS 


09B2 

7E 

04 

71 

TF0RC3 

JMP 

SYNERR 


COM. FLAG 

•X* 

POINT TO STRING 
OUTPUT IT 

rO 

THIS 4 MUST REMAIN !! 

EXIT 

MOVE BACK ONE 
SAVE-POINTER 

SET POINTER 
IS IT C.R.? 

RETURN 
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LOCN B1 B2 B3 


09B5 DE 44 
09B7 86 OD 
09B9 D6 B5 
09BB A1 00 
09BD 27 OC 
09BF El 00 
09C1 27 03 
09C3 08 
09C4 20 F5 


09C6 

08 


TSTMS4 

INX 

09C7 

DF 

44 


STX 

09C9 

97 

6C 


STA 

09CB 

39 


TSTMS5 

RTS 


BUFPNT 

GET POINTER 

♦CRGRET 

GET C«R« 

EOL 

GET EOL CHAR. 

OrX 

CHECK CHARACTER 

TSTMS5 


OfX 


TSTMS4 



BUMP POINTER ONE 

TSTMS2 

REPEAT 

BUFPNT 

SAVE BUFFER POINT 

MSLFLG 

SET FLAG 


RETURN 


* TEST FOR MULTIPLE STATEMENTS PER LINE 

TSTMSL LDX 

LDA A 
LDA B 
TSTMS2 CMP A 
BEG 
CMP B 
BEG 
INX 
BRA 


* PROCCESS THE NEXT COMMAND 
09CC 7C 00 76 NEXT INC NXTFLG 




* FIND COMMAND 


09CF 

BD 

08 

A8 

CFIND 

JSR 


TSTEMP 


09D2 

7C 

00 

75 


INC 


LINFLG 

SET FLAG 

09D5 

8D 

71 



BSR 


OCCURR 

CHECK FOR OCCURRENCE 

09D7 

DE 

93 



LDX 


TRGLIN 

SET POINTER 

09D9 

BD 

08 

21 


JSR 


TSTOVR 

CHECK LIMITS 

09DC 

27 

2A 



BEG 


CFIND2 


09DE 

D6 

76 



LDA 

B 

NXTFLG 

CHECK FLAG 

09E0 

26 

43 



BNE 


CFIND5 


09E2 

20 

04 



BRA 


CFIN12 


09E4 

96 

77 


CFIND1 

LDA 

A 

ALLFLG 

CHECK IF ALL 

09E6 

26 

40 



BNE 


CFIND6 


09E8 

CE 

OA 

31 

CFIN12 

LDX 


♦CFNTST 

POINT TO STRING 

09EB 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 

09EE 

DE 

5E 



LDX 


Z0NE1 

CHECK ZONES 

09F0 

8C 

00 

01 


CPX 


**0001 


09F3 

26 

07 



BNE 


CFIN13 


09F5 

DE 

60 



LDX 


Z0NE2 

CHECK ZONE 2 

09F7 

8C 

01 

36 


CPX 


**0136 


09FA 

27 

06 



BEG 


CFIN14 


09FC 

CE 

OA 

3B 

CFIN13 

LDX 


♦ZOKSTR 

POINT TO STRING 

09FF 

BD 

04 

85 


JSR 


PDATA1 

OUTPUT IT 

0A02 

7F 

00 

6C 

CFIN14 

CLR 


MSLFLG 


OAOS 

7E 

03 

8A 

CFIN15 

JMP 


EDIT 

RETURN 

0A08 

DE 

93 


CFIND2 

LDX 


TRGLIN 

POINT TO TARGET 

OAOA 

9C 

4A 



CPX 


NEWPOS 

SAME ONE? 

OAOC 

27 

1A 



BEG 


CFIND6 


OAOE 

DF 

4A 



STX 


NEWPOS 

SAVE IT 

0A10 

D6 

78 


CFIND3 

LDA 

B 

OCRFLG 

CHECK FLAG 

0A12 

27 

11 



BEG 


CFIND5 



( 
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LOCN 

B1 

B2 

B3 







0A14 

D6 

76 



LDA 

B 

NXTFLG 

CHECK 

FLAG 

0A16 

26 

03 



BNE 


CFIND4 



0A18 

BD 

08 

3F 


JSR 


VERLIN 

VERIFY 

LINE 

0A1B 

BD 

OA 

83 

CFIND4 

JSR 


NXTOCR 

CHECK 

NEXT OCCUR 

0A1E 

BD 

08 

21 


JSR 


TSTOVR 

CHECK 

LIMITS 

0A21 

27 

E5 



BEQ 


CFIND2 



0A23 

20 

06 



BRA 


CFIND9 



0A25 

BD 

08 

3F 

CFIND5 

JSR 


VERLIN 

VERIFY 

LINE 

0A28 

7E 

08 

A2 

CFIND6 

JMP 


PRINT6 



0A2B 

D6 

76 


CFIND9 

LDA 

B 

NXTFLG 

CHECK 

FLAG 

0A2D 

26 

F6 



BNE 


CFIND5 



0A2F 

20 

B3 



BRA 


CFIND1 



0A31 

4E 



CFNTST 

FCC 


'NOT FOUND 

i' 



0A32 4F 
0A33 54 
0A34 20 
0A35 46 
0A36 4F 
0A37 55 
0A38 4E 
0A39 44 
0A3A 04 

0A3B 2E 
0A3C 2E 
0A3D 2E 
0A3E 5A 
0A3F 4F 
0A40 4E 
0A41 45 
0A42 53 
0A43 20 
0A44 4F 
0A45 4B 
0A46 3F 
0A47 04 


FCB 4 

ZOKSTR FCC '♦.«ZONES OK?' 


FCB 4 


* CHECK FOR OCCURRENCE 


0A48 

DE 

44 


OCCURR LDX 


BUFPNT 

SET POINTER 

0A4A 

DF 

46 


STX 


BUFSAV 

SAVE IT 

0A4C 

7F 

00 

77 

CLR 


ALLFLG 


0A4F 

7F 

00 

78 

CLR 


OCRFLG 


0A52 

BD 

04 

E9 

JSR 


FINDT 

FIND TARGET 

0A55 

DE 

44 


LDX 


BUFPNT 

RESTORE POINTER 

0A57 

BD 

07 

38 

JSR 


SKPCLS 


0A5A 

Cl 

01 


CMP 

B 

*1 

IS IT NUMBER? 

0A5C 

27 

09 


BEQ 


0CCUR3 


0A5E 

81 

2A 


CMP 

A 

#'* 

IS IT A **•? 

0A60 

26 

17 


BNE 


0CCUR5 


0A62 

7C 

00 

77 

INC 


ALLFLG 

SET FOR ALL OCCUR 

0A65 

20 

OF 


BRA 


0CCUR4 
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LOCN 

B1 

B2 

B3 





0A67 

BD 

07 

55 

0CCUR3 

JSR 

BCDCON 

GET NUMBER 

0A6A 

BD 

08 

38 


JSR 

TSTNUM 

ZERO? 

0A6D 

27 

OA 



BEQ 

OCCURS 


0A6F 

BD 

08 

2A 


JSR 

DECNUM 

DEC NUMBER 

0A72 

27 

05 



BEQ 

0CCUR5 


0A74 

8D 

04 



BSR 

SAVOCR 

SAVE OCCURRENCE 

0A76 

7C 

00 

78 

0CCUR4 

INC 

OCRFLG 

SET FLAG 

0A79 

39 



OCCURS 

RTS 


RETURN 


* SAVE PRESENT OCCURRENCE COUNT 


0A7A 

96 

90 

SAVOCR LDA 

A 

NUMBER 

GET NUMBER 

0A7C 

97 

6E 

STA 

A 

OCRCNT 

SAVE IT 

0A7E 

96 

91 

LDA 

A 

NUMBER+1 


0A80 

97 

6F 

STA 

A 

OCRCNT+1 


0A82 

39 


RTS 



RETURN 


* PROCCESS NEXT OCCURRENCE 


0A83 

96 

77 


NXTOCR 

LDA 

A 

ALLFLG 

CHECK FOR ALL 

0A85 

26 

OF 



BNE 


NXT0C1 


0A87 

96 

6E 


NXTOCO 

LDA 

A 

OCRCNT 

GET COUNT 

0A89 

97 

90 



STA 

A 

NUMBER 

PUT IN NUMBER 

0A8B 

96 

6F 



LDA 

A 

OCRCNT+1 


0A8D 

97 

91 



STA 

A 

NUMBER+1 


0A8F 

BD 

08 

2A 


JSR 


DECNUM 

DEC THE COUNT 

0A92 

27 

OB 



BEQ 


NXT0C2 


0A94 

8D 

E4 



BSR 


SAVOCR 

SAVE COUNT 

0A96 

96 

85 


NXT0C1 

LDA 

A 

CHGFLG 


0A98 

26 

OA 



BNE 


NXT0C3 


0A9A 

DE 

46 



LDX 


BUFSAV 

RESTORE POINTER 

0A9C 

7E 

04 

E9 


JMP 


FINDT 

FIND TARGET AND RET 

0A9F 

7F 

00 

78 

NXT0C2 

CLR 


OCRFLG 

CLEAR FLAG 

0AA2 

20 

F2 



BRA 


NXT0C1 


0AA4 

39 



NXT0C3 

RTS 



RETURN 


C 


M 

4 

5 


* EQUALS COMMAND 


0AA5 

BD 

08 

A8 

EQUALS JSR 

TSTEMP 



0AA8 

DE 

44 


LDX 

BUFPNT 

SET 

POINTER 

OAAA 

7F 

00 

7D 

CLR 

BMPFLG 



OAAD 

7C 

00 

84 

INC 

SNGLIN 



OABO 

7C 

00 

7E 

INC 

EQUFLG 



0AB3 

96 

74 


LDA A 

NOCURL 

CURRENT LINE? 

0AB5 

26 

20 


BNE 

INSER1 



0AB7 

DE 

4A 


LDX 

NEWPOS 



0AB9 

DF 

93 


STX 

TRGLIN 

FIX 

TARGET 

OABB 

BD 

06 

98 

JSR 

GETNUM 

GET 

NUMBER 

OABE 

7C 

00 

81 

INC 

REPFLG 

SET 

FLAG 

0AC1 

96 

8E 


LDA A 

CHRCNT+1 



0AC3 

97 

82 


STA A 

TMPCHR 



0AC5 

7E 

OC 

BB 

JMP 

DELETO 




c 
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PAGE 


LOCN B1 B2 B3 


* INSERT ROUTINE 


C 


c 


0AC8 

DE 

44 


INSERT 

LDX 


BUFPNT 

SET POINTER 

OACA 

7F 

00 

7D 


CLR 


BMPFLG 

CLEAR FLAG 

OACD 

A6 

00 



LDA 

A 

OfX 

GET CHAR* 

OACF 

81 

OD 


1 

CMP 

A 

♦CRGRET 


0AD1 

27 

17 



BEG 


INSER4 


0AD3 

7C 

00 

84 


INC 


SNGLIN 

SET FLAG 

0AD6 

08 




INX 



BUMP THE POINTER 

0AD7 

DF 

44 


INSER1 

STX 


BUFPNT 

SAVE IT 

0AD9 

CE 

00 

BB 


LDX 


♦BUFFER 


OADC 

96 

8E 



LDA 

A 

CHRCNT+1 

GET COUNT 

OADE 

9C 

44 


INSER2 

CPX 


BUFPNT 

CHECK POINT 

OAEO 

27 

04 


• 

BEG 


INSER3 


0AE2 

4A 




DEC 

A 


DEC THE COUNTER 

0AE3 

08 




INX 



BUMP THE POINTER 

0AE4 

20 

F8 



BRA 


INSER2 


0AE6 

8B 

03 


INSER3 

ADD 

A 

♦3 

FIX COUNT 

0AE8 

97 

8E 



STA 

A 

CHRCNT+1 


OAEA 

DE 

4A 


INSER4 

LDX 


NEUPOS 

SET POINTER 

OAEC 

DF 

48 



STX 


CURPOS 

SAVE POINTER 

OAEE 

96 

7E 



LDA 

A 

EGUFLG 


OAFO 

27 

06 



BEQ 


INSE42 


0AF2 

96 

72 



LDA 

A 

OVRBEG 

CHECK LIMIT 

0AF4 

27 

14 



BEG 


INSE43 


0AF6 

20 

25 



BRA 


INSER5 


0AF8 

BD 

06 

98 

INSE42 

JSR 


GETNUM 


OAFB 

96 

7F 



LDA 

A 

INLMFL 

CHECK FLAG 

OAFD 

27 

OB 



BEG 


INSE43 


OAFF 

9C 

99 



CPX 


FILEND 

EMPTY? 

0B01 

27 

07 



BEG 


INSE43 


0B03 

5F 




CLR 

B 

f tic 

CLEAR ACC* 

0B04 

D7 

90 



STA 

B 

NUMBER 

SAVE IN NUMBER 

0B06 

D7 

91 



STA 

B 

NUMBER+1 


0B08 

20 

13 



BRA 


INSER5 


OBOA 

BD 

08 

OF 

INSE43 

JSR 


UPONE 

UP ONE LINE 

OBOD 

E6 

02 



LDA 

B 

2f X 

GET DIGIT 

OBOF 

96 

73 



LDA 

A 

OVREND 

LIMIT? 

OBI 1 

27 

OA 



BEQ 


INSER5 


0B13 

5F 



INSE45 

CLR 

B 



0B14 

DE 

99 



LDX 


FILEND 


0B16 

9C 

97 



CPX 


FILBEG 


0B18 

26 

03 



BNE 


INSER5 


OBI A 

BD 

07 

A3 


JSR 


CLRNUM 

CLEAR OUT NUMBER 





* CALCULATE 

LINE NUMBER 

INCREMENT 

0B1D 

DF 

58 


INSER5 

STX 


SPCPT1 

SAVE POINTER 

0B1F 

96 

7E 



LDA 

A 

EGUFLG 


0B21 

26 

2C 



BNE 


INSE60 


0B23 

96 

73 



LDA 

A 

OVREND 

LIMIT? 

0B25 

27 

05 



BEQ 


INSE51 


0B27 

7F 

00 

92 


CLR 


NUMBER+2 



31 
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LOCN 

B1 

B2 

B3 


0B2A 

20 

1C 



0B2C 

96 

7D 


INSE51 

0B2E 

26 

18 



0B30 

96 

92 



0B32 

D7 

82 



0B34 

9A 

82 



0B36 

27 

OD 



0B38 

96 

7F 



0B3A 

27 

03 



0B3C 

7F 

00 

92 


0B3F 

86 

01 


INSE52 

0B41 

97 

7C 



0B43 

20 

03 



0B45 

7A 

00 

7C 

INSE55 

0B48 

BD 

06 

6A 

INSER6 

0B4B 

96 

84 



0B4D 

27 

04 


* ENTER 

0B4F 

DE 

44 


INSE60 

0B51 

20 

2D 



0B53 

7F 

00 

7F 

INSE61 

0B56 

BD 

04 

4E 


0B59 

CE 

00 

90 


0B5C 

BD 

08 

D4 


0B5F 

7F 

00 

8D 


0B62 

86 

03 



0B64 

97 

8E 



0B66 

97 

7D 



0B68 

CE 

00 

BB 


0B6B 

BD 

04 

99 

INSE62 

0B6E 

27 

E3 



0B70 

81 

OD 



0B72 

27 

07 



0B74 

A7 

00 



0B76 

BD 

04 

BB 


0B79 

20 

FO 



0B7B 

A7 

00 


INSER7 

0B7D 

CE 

00 

BB 


0B8O 

DF 

44 


INSE71 

0B82 

A6 

00 



0B84 

91 

B4 



0B86 

26 

40 



0B88 

96 

8E 



0B8A 

80 

03 



0B8C 

97 

8E 



0B8E 

08 



* CHECK 

0B8F 

DF 

40 


INS710 

0B91 

DE 

4A 



0B93 

BD 

08 

OF 


0B96 

7D 

00 

73 



BRA 
LDA A 
BNE 
LDA A 
STA B 
ORA A 
BEG 
LDA A 
BEG 
CLR 
LDA A 
STA A 
BRA 


LDA A 
BEG 


LDX 
BRA 
CLR 
JSR 
LDX 
JSR 
CLR 
LDA 
STA 
STA 
LDX 
JSR 
BEQ 
CMP 
BEG 
STA 
JSR 
BRA 
STA 
LDX 
STX 
LDA 
CMP 
BNE 
LDA 
SUB 
STA 
I NX 


A 

A 

A 


A 

A 

A 

A 

A 


INSER6 

BMPFLG 

INSER6 

NUMBER+2 

TMPCHR 

TMPCHR 

INSE55 

INLMFL 

INSE52 

NUMBER+2 

#1 

INCAMT 

INSER6 

INCAMT 

BMPNUM 

SNGLIN 

INSE61 


BUFPNT 

INSE71 

INLMFL 

PCRLF 

♦NUMBER 

OUTBCD 

CHRCNT 

#3 

CHRCNT+1 

BMPFLG 

♦BUFFER 

INCHAR 

INSE61 

♦CRGRET 

INSER7 

OrX 

BUFLIM 

INSE62 

OfX 

♦BUFFER 

BUFPNT 

OfX 

LINO 

INSE72 

CHRCNT+1 

♦ 3 

CHRCNT+1 


GET NUMBER 


CHECK FLAB 


SET AMOUNT 


BUMP NUMBER 
CHECK IF SINGLE IN 


POINT TO NUMBER 
OUTPUT IT 

SET COUNTER 

SET FLAG 
SET POINTER 
GET A CHARACTER 

IS IT C.R.? 


CHECK LIMIT 
REPEAT 

SET POINTER 
SAVE IT 
GET CHAR. 
ESCAPE? 


FIX COUNT 
BUMP THE POINTER 


CHECK IF RENUMBERING NECESSARY 

SAVE POINTER 


STX 

LDX 

JSR 

TST 


TEMP 

NEWPOS 

UPONE 

OVREND 


UP ONE LINE 
LIMIT? 




TSC 6800 TEXT EDITING SYSTEM PAGE 


LOCN 

B1 

B2 

B3 






0B99 

26 

1A 



BNE 


INS711 


0B9B 

7C 

00 

83 


INC 


CHKFLG 

SET FLAG 

0B9E 

D6 

90 



LDA 

B 

NUMBER 

GET NUMBER 

OBAO 

96 

91 



LDA 

A 

NUMBER+1 


0BA2 

BD 

07 

BA 


JSR 


FNDNU4 

CHECK NUMBER 

0BA5 

26 

OE 



BNE 


INS711 


0BA7 

4F 




CLR 

A 



0BA8 

97 

7C 



STA 

A 

INCAMT 

SET INC AMOUNT 

OBAA 

97 

92 



STA 

A 

NUMBER+2 


OBAC 

BD 

06 

BO 


JSR 


RENUM2 

RENUMBER FILE 

OBAF 

CE 

OB 

F2 


LDX 


♦RENSTR 

POINT TO STRING 

0BB2 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 

0BB5 

DE 

40 


INS711 

LDX 


TEMP 

RESTORE POINTER 

0BB7 

7D 

00 

84 


TST 


SNGLIN 


OBBA 

27 

06 



BEG 


INS712 


OBBC 

DE 

4A 



LDX 


NEUPOS 

FIX POINTER 

OBBE 

DF 

48 



STX 


CURPOS 


OBCO 

20 

03 



BRA 


INS713 


0BC2 

7C 

00 

6C 

INS712 

INC 


MSLFLG 

SET FLAG 

0BC5 

7E 

03 

8A 

INS713 

JMP 


EDIT 






* ACTUAL LINE 

INSERT 


0BC8 

8D 

3E 


INSE72 

BSR 


MAKSPC 

MAKE SOME SPACE 

OBCA 

DE 

40 



LDX 


TEMP 

RESTORE POINTER 

OBCC 

DF 

4A 



STX 


NEUPOS 


OBCE 

BD 

06 

8B 


JSR 


PUTNUM 

PUT NUMBER 

0BD1 

08 




INX 



BUMP 3 TIMES 

0BD2 

08 




INX 




0BD3 

08 




INX 




0BD4 

DF 

40 



STX 


TEMP 

SAVE POINTER 

0BD6 

DE 

44 


INSE75 

LDX 


BUFPNT 


0BD8 

A6 

00 



LDA 

A 

OfX 

GET CHAR. 

OBDA 

08 




INX 



BUMP THE POINTER 

OBDB 

DF 

44 


’ ‘•fr- 

STX 


BUFPNT 

SAVE IT 

OBDD 

DE 

40 



LDX 


TEMP 

''JNfct ; ; a 

OfWF 

A7 

00 



STA 

A 

OfX 

PUT CHAR. 

OfeEl 

08 




INX 



BUMP 

0BE2 

DF 

40 



STX 


TEMP 

SAVE 

0BE4 

81 

OD 



CMP 

A 

♦CRGRET 


0BE6 

26 

EE 



BNE 


INSE75 

REPEAT 

0BE8 

BD 

12 

85 


JSR 


EXPLIN 

EXPAND TABS 

OBEB 

96 

84 



LDA 

A 

SNGLIN 


OBED 

26 

AO 



BNE 


INS710 


OBEF 

7E 

OA 

EA 


JMP 


INSER4 


0BF2 

53 



RENSTR 

FCC 


'SOME LINES RENUMBERED' 


0BF3 4F 
0BF4 4D 
0BF5 45 
0BF6 20 
0BF7 4C 
0BF8 4? 
0BF9 4E 


33 
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LOCN B1 B2 B3 
OBFA 45 
OBFB 53 
OBFC 20 
OBFD 52 
OBFE 45 
OBFF 4E 
OCOO 55 
0C01 4D 
0C02 42 
0C03 45 
0C04 52 
0C05 45 
0C06 44 

0C07 04 FCB 4 


* MAKE ROOM FOR INSERT 


0C08 

7F 

00 

89 

MAKSPC 

CLR 


DECCNT 

CLEAR COUNT 

OCOB 

DE 

58 



LDX 


SPCPT1 

SET POINTER 

OCOD 

DF 

40 



STX 


TEMP 

SAVE 

OCOF 

9C 

99 



CPX 


FILEND 

END OF FILE? 

0C11 

26 

03 



BNE 


MAKSP1 


0C13 

7C 

00 

89 


INC 


DECCNT 


0C16 

DE 

99 


MAKSP1 

LDX 


FILEND 

SET POINTER 

0C18 

DF 

58 



STX 


SPCPT1 

SAVE 

0C1A 

D6 

8D 



LDA 

B 

CHRCNT 


0C1C 

96 

8E 



LDA 

A 

CHRCNT+1 


0C1E 

26 

03 



BNE 


MAKS21 


0C20 

5D 



MAKS18 

TST 

B 



0C21 

27 

37 


MAKSP2 

BEQ 


MAKSP4 


0C23 

BC 

02 

12 

MAKS21 

CPX 


MEMEND 

END OF MEMORY? 

0C26 

27 

26 



BEQ 


MAKSP3 


0C28 

08 




INX 



BUMP THE POINTER 

0C29 

7D 

00 

8C 


TST 


DRCTN 

WHICH DIRECTION? 

0C2C 

26 

04 



BNE 


MAKS22 


0C2E 

DF 

42 



STX 


XSAVE 

SAVE POINTER 

0C30 

20 

OC 



BRA 


MAK222 


0C32 

7D 

00 

8B 

MAKS22 

TST 


CPYDRC 


0C35 

27 

OE 



BEQ 


MAKS23 


0C37 

DF 

42 



STX 


XSAVE 

SAVE THE POINTER 

0C39 

DE 

4A 



LDX 


NEWPOS 

GET POSITION 

0C3B 

08 




INX 



BUMP IT 

0C3C 

DF 

4A 



STX 


NEUPOS 

SAVE IT 

0C3E 

DE 

93 


MAK222 

LDX 


TRGLIN 

GET TARGET 

0C40 

08 




INX 



BUMP IT 

0C41 

DF 

93 



STX 


TRGLIN 


0C43 

DE 

42 



LDX 


XSAVE 

RESTORE POINTER 

0C45 

4D 



MAKS23 

TST 

A 


TEST THE ACC. 

0C46 

26 

01 



BNE 


MAKS24 


0C48 

5A 




DEC 

B 


DEC THE COUNTER 

0C49 

4A 



MAKS24 

DEC 

A 



0C4A 

26 

D7 



BNE 


MAKS21 


0C4C 

20 

D2 



BRA 


MAKS18 

REPEAT 

0C4E 

CE 

OC 

77 

MAKSP3 

LDX 


♦NORMST 

POINT TO STRING 
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LOCN 

B1 

B2 

B3 






0C51 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 

0C54 

7F 

00 

6C 


CLR 


MSLFLG 


0C57 

7E 

03 

8A 


JMP 


EDIT 

RETURN 

0C5A 

DF 

99 


MAKSP4 

STX 


FILEND 

SAVE POINTER 

0C5C 

DF 

5A 



STX 


SPCPT2 

SAVE POINTER 

0C5E 

96 

89 



LDA 

A 

DECCNT 

CHECK 

0C60 

26 

14 



BNE 


MAKSP6 


0C62 

DF 

5A 


MAKSP5 

STX 


SPCPT2 

SAVE POINTER 

0C64 

DE 

58 


MAKS55 

LDX 


SPCPT1 


0C66 

9C 

40 



CPX 


TEMP 

DONE? 

0C68 

27 

OC 



BEQ 


MAKSP6 


0C6A 

09 




DEX 



DEC THE POINTER 

0C6B 

A6 

00 



LDA 

A 

0»X 

GET CHAR* 

0C6D 

DF 

58 



STX 


SPCPT1 

SAVE POINTER 

0C6F 

DE 

5A 



LDX 


SPCPT2 


0C71 

09 




DEX 



DEC THE POINTER 

0C72 

A7 

00 



STA 

A 

OfX 

PUT THE CHAR. 

0C74 

20 

EC 



BRA 


MANSP5 

REPEAT 

0C76 

39 



MAKSP6 

RTS 



RETURN 

0C77 

4E 



NORMST 

FCC 


'NOT ENOUGH ROOM 7 


0C78 4F 
0C79 54 
0C7A 20 
0C7B 45 
0C7C 4E 
0C7D 4F 
0C7E 55 
0C7F 47 
0C80 48 
0C81 20 
0C82 52 
0C83 4F 
0C84 4F 
0C85 4D 
0C86 04 


FCB 


* REPLACE LINES ROUTINE 

0C87 7C 00 81 REPLAC INC REPFLG SET FLAG 


* DELETE LINES ROUTINE 


0C8A 

DE 

44 


DELETE 

LDX 

BUFPNT 

SET POINTER 

0C8C 

BD 

04 

E9 


JSR 

FINDT 

FIND TARGET 

0C8F 

BD 

08 

21 


JSR 

TSTOVR 

LIMITS? 

0C92 

27 

27 



BEQ 

DELETO 


0C94 

CE 

OD 

7F 

DELE02 

LDX 

♦NTRCHS 

POINT TO STRING 

0C97 

BD 

04 

83 


JSR 

PSTRNG 

OUTPUT IT 

0C9A 

CE 

00 

BB 


LDX 

♦BUFFER 

POINT TO BUFFER 

0C9D 

BD 

04 

99 

DELE04 

JSR 

INCHAR 

GET A CHARACTER 

OCAO 

27 

F2 



BEQ 

DELE02 
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LOCN 

B1 

B2 

B3 




0CA2 

A7 

00 



STA 

A 

0CA4 

08 




INX 


OCAS 

81 

OD 



CMP 

A 

0CA7 

26 

F4 



BNE 


OCA? 

CE 

00 

BB 


LDX 


OCAC 

BD 

04 

92 


JSR 


OCAF 

81 

5? 



CMP 

A 

0CB1 

27 

08 



BEQ 


0CB3 

CE 

OD 

A3 


LDX 


0CB6 

BD 

04 

83 


JSR 


0CB9 

20 

60 



BRA 


OCBB 

DE 

4A 


DELETO 

LDX 


OCBD 

96 

8C 



LDA 

A 

OCBF 

27 

15 



BEG 


0CC1 

BD 

08 

OF 


JSR 


0CC4 

96 

73 



LDA 

A 

0CC6 

27 

02 



BEG 


0CC8 

DE 

9? 



LDX 


OCCA 

DF 

5A 


DELE15 

STX 


OCCC 

DE 

93 



LDX 


OCCE 

DF 

48 



STX 


OCDO 

DF 

58 



STX 


0CD2 

DE 

5A 



LDX 


0CD4 

20 

11 



BRA 


0CD6 

DF 

58 


DELET1 

STX 


0CD8 

DF 

48 



STX 


OCDA 

DE 

93 



LDX 


OCDC 

BD 

08 

OF 


JSR 


OCDF 

96 

73 



LDA 

A 

0CE1 

27 

02 



BEG 


0CE3 

DE 

9? 



LDX 


0CE5 

DF 

5A 


DELET2 

STX 


0CE7 

4F 



DELE25 

CLR 

A 

0CE8 

5F 




CLR 

B 

OCE? 

?C 

58 


DELET3 

CPX 


OCEB 

27 

07 



BEQ 


OCED 

4C 




INC 

A 

OCEE 

26 

01 



BNE 


OCFO 

5C 




INC 

B 

0CF1 

09 



DELE35 

DEX 


0CF2 

20 

F5 



BRA 


0CF4 

97 

8E 


DELET4 

STA 

A 

0CF6 

D7 

8D 



STA 

B 

0CF8 

8D 

49 



BSR 


OCFA 

96 

81 



LDA 

A 

OCFC 

27 

ID 



BEG 


OCFE 

DE 

48 



LDX 


ODOO 

BD 

07 

FO 


JSR 


0D03 

96 

7E 



LDA 

A 

0D05 

26 

2C 



BNE 


0D07 

96 

72 



LDA 

A 

ODO? 

27 

08 



BEG 


ODOB 

BD 

07 

A3 


JSR 


ODOE 

DF 

4A 



STX 


0D10 

7E 

OB 

ID 


JMP 



PAGE 


0»X 

SAVE IT 

♦CRGRET 

C ♦ R ♦ ? 

DELE04 

REPEAT 

♦BUFFER 

SKIPSP 

SKIP SPACES 

#'Y 

WAS IT 'Y'ES? 

DELETO 

♦NLDSTR 

POINT TO STRING 

PSTRNG 

DELET5 

RETURN 

NEUPOS 

SET POINTER 

DRCTN 

CHECK DIRECTION 

DELET1 

UPONE 

MOVE UP ONE 

OVREND 

LIMIT? 

DELE15 
FILEND 
SPCPT2 
TRGLIN 

GET TARGET 

CURPOS 

MAKE CURRENT 

SPCPT1 

SPCPT2 

GET POINTER 

DELE25 

SPCPT1 

SAVE 

CURPOS 

TRGLIN 

POINT TO TARGET 

UPONE 

MOVE UP ONE 

OVREND 

LIMIT? 

DELET2 

FILEND 

POINT TO END 

SPCPT2 

SAVE POINTER 


SPCPT1 

DELET4 


DELE35 

BUMP THE COUNTER 

DELET3 

CHRCNT+1 

CHRCNT 

SAVE COUNT 

DELCHR 

DELETE CHARACTERS 

REPFLG 

REPLACE? 

DELET5 

CURPOS 

SET POINTER 

BAKONE 

EGUFLG 

DELET7 

BACKUP ONE LINE 

OVRBEG 

CHECK LIMIT 

DELE45 

CLRNUM 

CLEAR NUMBER 

NEUPOS 

INSER5 

SAVE NEW POSITION 


36 
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( 
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LOCN 

B1 

B2 

B3 






0D13 

DF 

4A 


DELE45 

STX 


NEUPOS 

SAVE 

0D15 

7F 

00 

7D 


CLR 


BMPFLG 


0D18 

7E 

OA 

EA 


JMP 


INSER4 

GO TO INSERT 

0D1B 

DE 

48 


DELET5 

LDX 


CURPOS 

CHECK POSITION 

0D1D 

9C 

99 



CPX 


FILEND 

END? 

0D1F 

26 

OD 



BNE 


DELET6 


0D21 

BD 

07 

FO 


JSR 


BAKONE 

MOVE IT BACK 

0D24 

DF 

40 



STX 


TEMP 

SAVE POINTER 

0D26 

CE 

OD 

B4 


LDX 


♦BFRSTR 

POINT TO STRING 

0D29 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 

0D2C 

DE 

40 



LDX 


TEMP 

RESTORE 

0D2E 

DF 

48 


DELET6 

STX 


CURPOS 


0D30 

7E 

08 

A2 


JMP 


PRINT6 


0D33 

DF 

4A 


DELET7 

STX 


NEWPOS 

SAVE POINTER 

0D35 

96 

82 



LDA 

A 

TMPCHR 

GET CHAR COUNT 

0D37 

97 

8E 



STA 

A 

CHRCNT+1 


0D39 

4F 




CLR 

A 



0D3A 

97 

7D 



STA 

A 

BMPFLG 

CLEAR FLAG 

0D3C 

97 

8D 



STA 

A 

CHRCNT 


0D3E 

DE 

44 



LDX 


BUFPNT 

SET POINTER 

0D40 

7E 

OA 

D7 


JMP 


INSER1 

GO INSERT IT 


* DELETE CHARACTER BLOCK 


0D43 

DE 

5A 

DELCHR 

LDX 

SPCPT2 

SET POINTER 

0D45 

9C 

58 


CPX 

SPCPT1 

EQUAL? 

0D47 

27 

35 


BEQ 

DELCH5 


0D49 

9C 

99 


CPX 

FILEND 

END OF FILE? 

0D4B 

27 

OE 


BEQ 

DELCH2 


0D4D 

A6 

00 


LDA A 

0>X 

GET A CHAR* 

0D4F 

08 



INX 


BUMP THE POINTER 

0D50 

DF 

5A 


STX 

SPCPT2 

SAVE 

0D52 

DE 

58 


LDX 

SPCPT1 


0D54 

A7 

00 


STA A 

OfX 

PUT CHAR* 

0D56 

08 



INX 



0D57 

DF 

58 


STX 

SPCPT1 

SAVE POINTER 

0D59 

20 

E8 


BRA 

DELCHR 

REPEAT 

0D5B 

D6 

8D 

DELCH2 

LDA B 

CHRCNT 

GET COUNT 

0D5D 

96 

8E 


LDA A 

CHRCNT+1 


0D5F 

26 

03 


BNE 

DELC31 


0D61 

5D 


DELC21 

TST B 


CHECK COUNT 

0D62 

27 

18 

DELCH3 

BEQ 

DELCH4 


0D64 

09 


DELC31 

DEX 


DEC THE POINTER 

0D65 

7D 

00 8C 


TST 

DRCTN 

WHICH DIRECTION? 

0D68 

26 

09 


BNE 

DELC32 


0D6A 

DF 

42 


STX 

XSAVE 


0D6C 

DE 

93 


LDX 

TRGLIN 

GET TARGET 

0D6E 

09 



DEX 


DEC IT 

0D6F 

DF 

93 


STX 

TRGLIN 

PUT IT BACK 

0D71 

DE 

42 


LDX 

XSAVE 

RESTORE POINTER 

0D73 

4D 


DELC32 

TST A 


TEST COUNT 

0D74 

26 

01 


BNE 

DELC34 


0D76 

5A 



DEC B 


DEC THE COUNTER 

0D77 

4A 


DELC34 

DEC A 




37 
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LOCN 

B1 

B2 B3 




0D78 

26 

EA 


BNE 

DELC31 

0D7A 

20 

E5 


BRA 

DELC21 

0D7C 

DF 

99 

DELCH4 

STX 

FILEND SET NEW END 

0D7E 

39 


DELCH5 

RTS 

RETURN 

0D7F 

54 


NTRCHS 

FCC 

'TARGET NOT REACHED!' 

0D80 

41 





0D81 

52 





0D82 

47 





0D83 

45 





0D84 

54 





0D85 

20 




. 

0D86 

4E 





0D87 

4F 





0D88 

54 





0D89 

20 





0D8A 

52 





0D8B 

45 





0D8C 

41 





0D8D 

43 





0D8E 

48 





0D8F 

45 





0D90 

44 





0D91 

21 





0D92 

OD 



FCB 

•DrtArOrOrO'O 

0D93 

OA 





0D94 

00 



.»i 


0D95 

00 





0D9A 

00 





0D97 

00 





0D98 

59 



FCC 

'YOU SURE? ' 

0D99 

4F 





0D9A 

55 


% \ $ A 
% * 

■ 


0D9B 

20 





0D9C 

53 


ixcrtioq t 

\ V £ 


0D9D 

55 



; v, < 


0D9E 

52 



730 


0D9F 

45 





ODAO 

3F 





0DA1 

20 





0DA2 

04 



FCB 

4 

0DA3 

4E 


NLDSTR 

FCC 

'NO LINES DELETED' 


0DA4 4F 
0DA5 20 
0DA6 4C 
0DA7 4? 
0DA8 4E 
0DA9 45 
ODAA 53 
ODAB 20 
ODAC 44 
ODAD 45 
ODAE 4C 
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LOCN B1 B2 B3 
ODAF 45 
ODBO 54 
0DB1 45 
0DB2 44 
0DB3 04 


FCB 


0DB4 42 
0DB5 4F 
0DB6 54 
0DB7 54 
0DB8 4F 
0DB9 4D 
ODBA 20 
ODBB 4F 
ODBC 46 
ODBD 20 
ODBE 46 
ODBF 49 
ODCO 4C 
0DC1 45 
0DC2 20 
0DC3 52 
0DC4 45 
0DC5 41 
0DC6 43 
0DC7 48 
0DC8 45 
0DC9 44 
ODCA 04 


BFRSTR FCC 


BOTTOM OF FILE REACHED' 


FCB 


* CHANGE COMMAND ROUTINE 


ODCB 

BD 

08 

A8 

CHANGE 

JSR 

” ** M 

TSTEMP 


ODCE 

DE 

44 



LDX 


BUFPNT 

POINT TO BUFFER 

ODDO 

BD 

07 

38 


JSR 


SKPCLS 


0DD3 

BD 

06 

63 


JSR 


TSTEND 


0DD6 

27 

03 



BEQ 


CHAN12 

ERROR 

0DD8 

5D 



CHANG1 

TST 

B 



0DD9 

27 

03 


• 

BEQ 


CHAN15 

ERROR 

ODDB 

7E 

OF 

04 

CHAN12 

JMP 


CHANG9 


ODDE 

7C 

00 

85 

CHAN15 

INC 


CHGFLG 

SET FLAG 

0DE1 

BD 

05 

FA 


JSR 


SETDEL 

SET DELIMITERS 

0DE4 

5F 




CLR 

B 


CLEAR COUNT 

0DE5 

A6 

00 


CHANG2 

LDA 

A 

OrX 

GET CHAR. 

0DE7 

BD 

06 

63 


JSR 


TSTEND 


ODEA 

27 

08 



BEQ 


CHANG3 


ODEC 

91 

95 



CMP 

A 

DELIM 

IS IT DELIMITER? 

ODEE 

27 

04 



BEQ 


CHANG3 


ODFO 

08 




INX 



BUMP THE POINTER 

0DF1 

5C 




INC 

B 


BUMP THE COUNT 

0DF2 

20 

FI 



BRA 


CHANG2 


0DF4 

DF 

66 


CHANG3 

STX 


CHGEND 

SAVE POINTER 

0DF6 

D7 

86 



STA 

B 

STRCN2 

SAVE COUNT 

0DF8 

BD 

06 

63 


JSR 


TSTEND 
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LOCN 

ODFB 

ODFD 

ODFE 

OEOO 

0E02 

0E03 

0E04 

0E05 

0E07 

OEOA 

OEOD 

0E10 

0E13 

0E16 

0E19 

0E1B 

0E1D 

0E1F 

0E21 

0E23 

0E25 

0E28 

0E2A 

0E2C 

0E2E 

0E31 

0E34 

0E37 

0E39 

0E3C 

0E3F 


0E41 

0E44 

0E46 

0E49 

0E4C 

0E4E 

0ES1 

0E53 

0E55 

0E57 

0E59 

0E5A 

0E5C 

0E5D 

0E5F 

0E61 

0E63 

0E6S 

0E67 

0E6A 

0E6C 


B1 B2 
27 01 
08 

DF 44 
DE 4A 
08 
08 
08 

DF 64 
BD OF 
7F 00 
BD OA 
7C 00 
BD OF 
7F 00 
DE 6E 
DF 68 
96 78 
27 07 
96 7B 
26 03 
7E OF 
DE 4A 
9C 93 
26 03 
7C 00 
BD 06 
7F 00 
DE 64 
BD 06 
BD 05 
20 10 


7F 00 
DE 64 
BD 06 
BD 06 
22 7A 
BD 05 

96 90 

97 62 

96 91 

97 63 
5D 

26 6C 
5C 

D7 87 
96 78 

27 OE 
96 77 
26 OA 
BD OA 
DE 5C 
08 


B3 




BEG 


CHAN35 




INX 



BUMP POINTER 


CHAN35 

STX 


BUFPNT 

SAVE IT 



LDX 


NEWPOS 



CHAN37 

INX 



BUMP THREE TIMES 



INX 






INX 






STX 


CHGPNT 

SAVE POINTER 

07 


JSR 


SVSTPT 

SAVE STRING POINT 

85 


CLR 


CHGFLG 


48 


JSR 


OCCURR 

GET TARG * OCCUR. 

85 


INC 


CHGFLG 


14 


JSR 


RSTSPT 

RESTORE STRING 

6D 


CLR 


PSTZFL 




LDX 


OCRCNT 

GET COUNT 



STX 


OCRTMP 

SAVE 



LDA 

A 

OCRFLG 




BEG 


CHANG4 




LDA 

A 

STRCNT 

CHECK COUNT 


- 

BNE 


CHANG4 


04 


JMP 


CHANG9 



CHANG4 

LDX 


NEWPOS 




CPX 


TRGLIN 

AT TARGET? 



BNE 


CHANG5 


88 


INC 


LSTFLG 

SET FLAG IF SO 

3B 

CHANG5 

JSR 


Z0NE3 

SET ZONE 

79 


CLR 


CHGONF 

CLEAR FLAG 



LDX 


CHGPNT 


5A 


JSR 


FIXZON 

SET ZONE 

B8 


JSR 


FIND72 




BRA 


CHA510 



* LOOP 

THROUGH 

OCCURRENCES 

79 

CHAN50 

CLR 


CHGONF 



CHANS1 

LDX 


CHGPNT 

SET POINTER 

5A 


JSR 


FIXZON 


4F 


JSR 


CMPZN2 

CHECK ZONE 



BHI 


CHANG8 


DF 


JSR 


FIND75 



CHA510 

LDA 

A 

NUMBER 

GET NUMBER 



STA 

A 

ZONBUF 

PUT IN BUFFER 



LDA 

A 

NUMBER+1 




STA 

A 

ZONBUF+1 




TST 

B 





BNE 


CHANG8 




INC 

B 


BUMP COUNTER 



STA 

B 

FNONFL 

SET FLAG 


CHAN52 

LDA 

A 

OCRFLG 

ANY OCCURR.? 



BEG 


CHANG6 




LDA 

A 

ALLFLG 

CHANGE ALL? 



BNE 


CHANG6 


87 


JSR 


NXTOCO 



CHAN55 

LDX 


LASTNO 

SET POINTER 



INX 



BUMP IT 



C 


c 






TSC 6800 TEXT EDITING SYSTEM PAGE 


LOCN 

B1 

B2 

B3 






0E6D 

DF 

64 



STX 


CHGPNT 


0E6F 

20 

DO 



BRA 


CHAN50 






* DELETE STRING ONE 


0E71 

7C 

00 

79 

CHANG6 

INC 


CHGONF 

SET FLAG 

0E74 

DE 

68 



LDX 


OCRTMP 

CHECK COUNT 

0E76 

27 

04 



BEG 


CHAN61 


0E78 

86 

01 



LDA 

A 

*1 


0E7A 

97 

78 



STA 

A 

OCRFLG 


0E7C 

DF 

6E 


CHAN61 

STX 


OCRCNT 

FIX COUNT 

0E7E 

DE 

5C 



LDX 


LASTNO 

GET STR. LOCATION 

0E80 

DF 

58 



STX 


SPCPT1 


0E82 

D6 

7B 



LDA 

B 

STRCNT 


0E84 

27 

10 



BEG 


CHAN66 


0E86 

7F 

00 

8D 


CLR 


CHRCNT 

CLEAR COUNT 

0E89 

D7 

8E 



STA 

B 

CHRCNT+1 


0E8B 

27 

04 


CHAN62 

BEG 


CHAN65 


0E8D 

08 




INX 



BUMP POINTER 

0E8E 

5A 




DEC 

B 


DEC THE COUNTER 

0E8F 

20 

FA 



BRA 


CHAN62 

REPEAT 

0E91 

DF 

5A 


CHAN65 

STX 


SPCPT2 

SAVE POINTER 

0E93 

BD 

OD 

43 


JSR 


DELCHR 

GO DELETE 





* INSERT STRING TWO 


0E96 

D6 

86 


CHAN66 

LDA 

B 

STRCN2 

GET COUNT 

0E98 

27 

23 



BEG 


CHA675 


0E9A 

7F 

00 

8D 


CLR 


CHRCNT 

CLEAR OUT COUNT 

0E9D 

D7 

8E 



STA 

B 

CHRCNT+1 

SET COUNTER 

0E9F 

DE 

5C 



LDX 


LASTNO 

SET POINTER 

0EA1 

DF 

58 



STX 


SPCPT1 


0EA3 

BD 

OC 

08 


JSR 


MAKSPC 

GO MAKE ROOM 

0EA6 

D6 

8E 



LDA 

B 

CHRCNT+1 


0EA8 

DE 

50 



LDX 


STRNGE 

POINT TO STRING END 

OEAA 

08 



CHAN67 

INX 



BUMP IT 

OEAB 

A6 

00 



LDA 

A 

0»X 

GET CHAR 

OEAD 

DF 

40 



STX 


TEMP 


OEAF 

DE 

5C 



LDX 


LASTNO 


0EB1 

A7 

00 



STA 

A 

0»X 

PUT CHARACTER 

0EB3 

08 




INX 



BUMP POINTER 

0EB4 

DF 

5C 



STX 


LASTNO 

SAVE 

0EB6 

DF 

64 



STX 


CHGPNT 


0EB8 

DE 

40 



LDX 


TEMP 

RESTORE 

OEBA 

5A 




DEC 

B 


DEC THE COUNTER 

OEBB 

26 

ED 



BNE 


CHAN67 


OEBD 

96 

77 


CHA675 

LDA 

A 

ALLFLG 

DO ALL? 

OEBF 

27 

1C 



BEG 


CHAN81 


0EC1 

DE 

5C 



LDX 


LASTNO 


0EC3 

DF 

64 



STX 


CHGPNT 

SAVE POINTER 

0EC5 

7E 

OE 

44 


JMP 


CHAN51 

REPEAT 


* CHANGE CLEANUP AND FINISH 
0EC8 7F 00 78 CHANG8 CLR OCRFLG CLEAR FLAG 


41 
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LOCN 

B1 

B2 

B3 





OECB 

DE 

68 



LDX 

OCRTMP 

GET COUNT 

OECD 

27 

04 



BEQ 

CHAN80 


OECF 

86 

01 



LDA A 

*1 

SET FLAG 

0ED1 

97 

78 



STA A 

OCRFLG 


0ED3 

DF 

6E 


CHAN80 

STX 

OCRCNT 

SET OCCUR. COUNT 

0ED5 

96 

87 



LDA A 

FNONFL 

CHECK FLAG 

0ED7 

26 

04 



BNE 

CHAN81 


0ED9 

96 

88 



LDA A 

LSTFLG 


OEDD 

26 

27 



BNE 

CHANG9 


OEDD 

DE 

4A 


CHAN81 

LDX 

NEWPOS 


OEDF 

96 

79 



LDA A 

CHGONF 


0EE1 

27 

03 



BEQ 

CHAN82 


0EE3 

BD 

08 

3F 


JSR 

VERLIN 

VERIFY CHANGE 

0EE6 

96 

88 


CHAN82 

LDA A 

LSTFLG 


0EE8 

27 

06 



BEQ 

CHAN84 


OEEA 

7F 

00 

79 


CLR 

CHGONF 

CLEAR FLAG 

OEED 

7E 

08 

A2 


JMP 

PRINT6 


OEFO 

BD 

06 

C3 

CHAN84 

JSR 

NXTLIN 

FIND NEXT LINE 

0EF3 

DF 

4A 



STX 

NEUPOS 

SAVE POINTER 

0EF5 

9C 

93 



CPX 

TRGLIN 

TARGET LINE? 

0EF7 

26 

03 



BNE 

CHAN86 


0EF9 

7C 

00 

88 


INC 

LSTFLG 

SET LAST FLAG 

OEFC 

08 



CHAN86 

I NX 


BUMP 3 TIMES 

OEFD 

08 




INX 



OEFE 

08 




INX 



OEFF 

DF 

64 



STX 

CHGPNT 

SAVE POINTER 

0F01 

7E 

OE 

31 


JMP 

CHANG5 

REPEAT 

0F04 

7E 

04 

41 

CHANG9 

JMP 

ERROR 

REPORT ERROR 


* SAVE STRING POINTER INFO 


0F07 

DE 

4E 

SVSTPT LDX 


STRNGB 

GET POINTER 

0F09 

DF 

52 

STX 


STRGB1 

SAVE IT 

OFOB 

DE 

50 

LDX 


STRNGE 


OFOD 

DF 

54 

STX 


STRGE1 


OFOF 

96 

7B 

LDA 

A 

STRCNT 

GET COUNT 

0F11 

97 

71 

STA 

A 

STRCN1 

SAVE IT 

OF 13 

39 


RTS 



RETURN 





* RESTORE STRING POINTER INFO 


OF 14 

DE 

52 

RSTSPT LDX 

STRGB1 

GET POINTER 

OF 16 

DF 

4E 

STX 

STRNGB 

RESTORE 

OF 18 

DE 

54 

LDX 

STRGE1 


0F1A 

DF 

50 

STX 

STRNGE 


0F1C 

96 

71 

LDA A 

STRCN1 

GET COUNT 

OF IE 

97 

7B 

STA A 

STRCNT 

RESTORE IT 

0F20 

39 


RTS 


RETURN 


* OVERLAY ROUTINE 




0F21 BD 08 A8 OVERLA JSR 


TSTEMP 
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LOCN 

B1 

B2 

B3 






0F24 

86 

20 



LDA 

A 

#$20 

SETUP SPACE 

0F26 

97 

95 



STA 

A 

DELIM 

AS DELIMITER 

0F28 

7F 

00 

8C 


CLR 


DRCTN 


0F2B 

DE 

44 



LDX 


BUFPNT 

SET POINTER TO BUFFER 

0F2D 

A6 

00 



LDA 

A 

OfX 

GET A CHAR. 

0F2F 

81 

OD 



CMP 

A 

♦CRGRET 


0F31 

27 

12 



BEG 


0VRLA1 


0F33 

BD 

07 

3B 


JSR 


CLASS 


0F36 

5D 




TST 

B 



0F37 

27 

03 



BEG 


OVRLAO 


0F39 

7E 

04 

71 


JMP 


SYNERR 

REPORT ERROR 

0F3C 

97 

95 


OVRLAO 

STA 

A 

DELIM 

SET DELIMITER 

0F3E 

08 




INX 




0F3F 

A6 

00 



LDA 

A 

OfX 

GET CHARACTER 

0F41 

81 

OD 



CMP 

A 

♦CRGRET 


0F43 

26 

2C 



BNE 


0VRL35 


0F45 

DE 

4A 


0VRLA1 

LDX 


NEUPOS 

SET POINTER 

0F47 

BD 

08 

AF 

OVRLU 

JSR 


OUTLIN 

OUTPUT CUR. LINE 

0F4A 

96 

6A 



LDA 

A 

NUMFLG 


0F4C 

26 

05 



BNE 


0VRL12 


0F4E 

CE 

OF 

D2 


LDX 


♦OVRLST+8 

POINT TO STRING 

0F51 

20 

03 



BRA 


0VRL16 


0F53 

CE 

OF 

CA 

0VRL12 

LDX 


♦OVRLST 

POINT TO STRING 

0F56 

BD 

04 

83 

0VRL16 

JSR 


PSTRNG 

OUTPUT IT 

0F59 

CE 

00 

BB 


LDX 


♦BUFFER 

POINT TO IN BUFFER 

0F5C 

BD 

04 

99 

0VRLA2 

JSR 


INCHAR 

GET A CHAR. 

0F5F 

27 

E4 



BEG 


0VRLA1 


0F61 

81 

OD 



CMP 

A 

♦CRGRET 


0F63 

27 

07 



BEG 


0VRLA3 


0F65 

A7 

00 



STA 

A 

0 r X 


0F67 

BD 

04 

BB 


JSR 


BUFLIM 


0F6A 

20 

FO 



BRA 


0VRLA2 


0F6C 

A7 

00 


0VRLA3 

STA 

A 

OfX 


0F6E 

CE 

00 

BB 


LDX 


♦BUFFER 

POINT TO BUFFER 

0F71 

DF 

44 


0VRL35 

STX 


BUFPNT 


0F73 

C6 

OD 



LDA 

B 

♦CRGRET 


0F75 

DE 

4A 



LDX 


NEUPOS 

POINT TO POSITION 

0F77 

08 




INX 




0F78 

08 




INX 




0F79 

08 




INX 




0F7A 

DF 

40 



STX 


TEMP 

SAVE POINTER 

0F7C 

DE 

44 


0VRLA4 

LDX 


BUFPNT 


0F7E 

A6 

00 


0VRL41 

LDA 

A 

OrX 

GET A CHAR. 

0F80 

08 




INX 



BUMP POINTER 

0F81 

DF 

44 



STX 


BUFPNT 

SAVE IT 

0F83 

81 

OD 



CMP 

A 

♦CRGRET 


0F85 

27 

3B 



BEG 


0VRLA7 


0F87 

DE 

40 



LDX 


TEMP 


0F89 

7D 

00 

8C 


TST 


DRCTN 


0F8C 

26 

08 



BNE 


0VRL43 


0F8E 

El 

00 



CMP 

B 

OfX 

CHECK IT 

0F90 

27 

OB 



BEQ 


0VRLA5 


0F92 

91 

95 



CMP 

A 

DELIM 

IS IT DELIMITER? 

0F94 

27 

02 



BEG 


0VRL45 


0F96 

A7 

00 


0VRL43 

STA 

A 

OfX 

PUT CHARACTER 
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LOCN 

B1 

B2 

B3 






0F98 

08 



0VRL45 

INX 



BUMP POINTER 

0F99 

DF 

40 



STX 


TEMP 


0F9B 

20 

DF 



BRA 


0VRLA4 


0F9D 

96 

8C 


0VRLA5 

LDA 

A 

DRCTN 

CHECK DIRECTION 

0F9F 

26 

21 



BNE 


0VRLA7 


0FA1 

4F 




CLR 

A 



0FA2 

97 

8D 



STA 

A 

CHRCNT 

CLEAR COUNT 

0FA4 

DE 

44 



LDX 


BUFPNT 

GET POINTER 

0FA6 

4C 



0VRL55 

INC 

A 



0FA7 

El 

00 



CMP 

B 

OrX 

CHECK CHAR. 

0FA9 

27 

03 



BEQ 


0VRLA6 


OFAB 

08 




INX 



BUMP THE POINTER 

OF AC 

20 

F8 



BRA 


0VRL55 

REPEAT 

OFAE 

97 

8E 


0VRLA6 

STA 

A 

CHRCNT+1 

SAVE COUNT 

OFBO 

DE 

40 



LDX 


TEMP 


0FB2 

DF 

58 



STX 


SPCPT1 

SET POINTER 

0FB4 

86 

01 



LDA 

A 

#1 


0FB6 

97 

8C 



STA 

A 

DRCTN 

SET DIRECTION 

0FB8 

BD 

OC 

08 


JSR 


MAKSPC 

MAKE ROOM 

OFBB 

C6 

OD 



LDA 

B 

♦CRGRET 


OFBD 

DE 

44 



LDX 


BUFPNT 

GET POINTER 

OFBF 

09 




DEX 




OFCO 

20 

BC 



BRA 


0VRL41 


0FC2 

DE 

4A 


0VRLA7 

LDX 


NEWPOS 

GET POSITION 

0FC4 

BD 

08 

3F 


JSR 


VERLIN 

VERIFY LINE 

0FC7 

7E 

03 

8A 

0VRLA8 

JMP 


EDIT 

RETURN 

OFCA 

20 



OVRLST 

FCC 


' OVERLAY 

/ 

OFCB 

4F 








OFCC 

56 








OFCD 

45 








OFCE 

52 







£ % T p J/f s/Cl 

OFCF 

4C 



f)T TV! I 

' 

■ 


■; , i;;- ^0 

OFDO 

41 








0FD1 

59 






& -f- *' 4 


0FD2 

20 



' <1 Q T •T V, f 

ON 


Jl'x* V." 


0FD3 

04 




FCB 


4 







* MOVE 

COMMAND 


*?£ Qi 

0FD4 

7C 

00 

80 

MOVE 

INC 


MOVFLG 

SET FLAG 

0FD7 

8D 

1A 



BSR 


COPY 

GO DO COPY 

0FD9 

96 

8B 



LDA 

A 

CPYDRC 

WHICH DIRECTION? 

OFDB 

97 

8C 



STA 

A 

DRCTN 


OFDD 

DE 

93 



LDX 


TRGLIN 

GET TARGET 

OFDF 

DF 

5A 



STX 


SPCPT2 


0FE1 

DE 

4A 



LDX 


NEWPOS 

GET POSITION 

0FE3 

DF 

58 



STX 


SPCPT1 

I* 

0FE5 

DE 

48 



LDX 


CURPOS 

GET CURRENT POS. 

0FE7 

DF 

93 



STX 


TRGLIN 

MAKE IT TARGET 

0FE9 

BD 

OD 

43 


JSR 


DELCHR 

DELETE LINES 

OFEC 

DE 

93 



LDX 


TRGLIN 


OFEE 

DF 

48 



STX 


CURPOS 

FIX POSITION 

OFFO 

7E 

08 

A2 


JMP 


PRINT6 






■Vfi ^f'r ;‘i 
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PAGE 


LOCN B1 B2 B3 

(• 

* COPY LINES COMMAND 



C 



0FF3 

DE 

44 


COPY 

LDX 

BUFPNT 

POINT TO BUFFER 

0FF5 

7C 

00 

76 


INC 

NXTFLG 

SET FLAG 

0FF8 

7C 

00 

75 


INC 

LINFLG 

SET FLAG 

OFFB 

BD 

04 

E9 


JSR 

FINDT 

FIND TARGET 

OFFE 

?C 

99 



CPX 

FILEND 


1000 

27 

1A 



BEG 

COPYO 


1002 

7F 

00 

75 


CLR 

LINFLG 


1005 

7F 

00 

76 


CLR 

NXTFLG 


1008 

?C 

97 



CPX 

FILBEG 

BEGINNING? 

100A 

26 

04 



BNE 

C0PY02 


100C 

?C 

4A 



CPX 

NEUPOS 


100E 

27 

04 



BEQ 

C0PY05 


1010 

96 

8C 


C0PY02 

LDA A 

DRCTN 

FIX DIRECTION 

1012 

97 

8B 



STA A 

CPYDRC 


1014 

7F 

00 

8C 

C0PY05 

CLR 

DRCTN 


1017 

BD 

08 

21 


JSR 

TSTOVR 

LIMITS? 

101A 

27 

03 



BEG 

C0PY1 


101C 

7E 

04 

5F 

COPYO 

JMP 

NOTFND 

REPORT ERROR 

101F 

BD 

07 

E6 

C0PY1 

JSR 

FNDCRT 

FIND NEXT C»R« 

1022 

08 




INX 


BUMP POINTER ONE 

1023 

DF 

58 



STX 

SPCPT1 


1025 

DE 

44 



LDX 

BUFPNT 


1027 

BD 

04 

E9 


JSR 

FINDT 

GO FIND TARGET 

102A 

BD 

08 

21 


JSR 

TSTOVR 

LIMITS? 

102D 

26 

ED 



BNE 

COPYO 


102F 

7D 

00 

8C 


TST 

DRCTN 

DIRECTION? 

1032 

26 

08 



BNE 

C0PY15 


1034 

DE 

4A 



LDX 

NEUPOS 

GET POINTER 

1036 

DF 

40 



STX 

TEMP 


1038 

DE 

93 



LDX 

TRGLIN 


103A 

20 

06 



BRA 

C0PY18 


103C 

DE 

93 


C0PY15 

LDX 

TRGLIN 

GET TARGET 

103E 

DF 

40 



STX 

TEMP 

SAVE IT 

1040 

DE 

4A 



LDX 

NEUPOS 


1042 

BD 

07 

E6 

C0PY18 

JSR 

FNDCRT 

GET NEXT C*R» 

1045 

08 




INX 


BUMP POINTER 

1046 

DF 

93 



STX 

TRGLIN 

SET TARGET 

1048 

DE 

40 



LDX 

TEMP 


104A 

DF 

4A 



STX 

NEUPOS 


104C 

4F 




CLR A 


CLEAR ACCUMULATORS 

104D 

5F 




CLR B 



104E 

08 



C0PY2 

INX 


BUMP THE POINTER 

104F 

AC 




INC A 


BUMP COUNT 

1050 

26 

01 



BNE 

C0PY25 


1052 

5C 




INC B 



1053 

?C 

93 


C0PY25 

CPX 

TRGLIN 

FINISHED? 

1055 

27 

10 



BEG 

C0PY3 


1057 

9C 

58 



CPX 

SPCPT1 

OVERLAP? 

105? 

26 

F3 



BNE 

C0PY2 


105B 

CE 

10 

B4 


LDX 

♦OVLPST 

POINT TO STRING 

105E 

BD 

04 

83 


JSR 

PSTRNG 

OUTPUT IT 


45 
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LOCN 

B1 

B2 

B3 






1061 

7F 

00 

6C 


CLR 


MSLFLG 


1064 

7E 

03 

8A 


JMP 


EDIT 

RETURN 

1067 

97 

8E 


C0PY3 

STA 

A 

CHRCNT+1 

SAVE COUNT 

106? 

D7 

8D 



STA 

B 

CHRCNT 


106B 

86 

01 



LDA 

A 

*1 

SET DIRECTION 

106D 

97 

8C 



STA 

A 

DRCTN 


106F 

BD 

OC 

08 


JSR 


MAKSPC 

MAKE ROOM FOR LINES 

1072 

DE 

5A 



LDX 


SPCPT2 


1074 

DF 

48 



STX 


CURPOS 

SET CUR. POSITION 

1076 

DE 

58 



LDX 


SPCPT1 


1078 

DF 

42 



STX 


XSAVE 


107A 

DE 

93 



LDX 


TRGLIN 

GET TARGET 

107C 

DF 

58 



STX 


SPCPT1 


107E 

DE 

4A 



LDX 


NEWPOS 


1080 

DF 

40 



STX 


TEMP 

SET POINTER 

1082 

BD 

OC 

64 


JSR 


MAKS55 

MOVE LINES 

1085 

DE 

42 



LDX 


XSAVE 

RESTORE POINTER 

1087 

7F 

00 

72 


CLR 


OVRBEG 


108A 

BD 

07 

FO 


JSR 


BAKONE 

MOVE BACK ONE 

108D 

96 

72 



LDA 

A 

OVRBEG 

LIMIT? 

108F 

27 

18 



BEG 


C0PY5 


1091 

BD 

07 

A3 


JSR 


CLRNUM 

CLEAR NUMBER 

1094 

7C 

00 

83 

C0PY4 

INC 


CHKFLG 

SET FLAG 

1097 

BD 

06 

BO 


JSR 


RENUM2 

GO RENUMBER 

109A 

DE 

48 



LDX 


CURPOS 

GET POSITION 

109C 

BD 

07 

FO 


JSR 


BAKONE 


109F 

DF 

48 



STX 


CURPOS 

SET CUR. POSITION 

10A1 

96 

80 



LDA 

A 

MOVFLG 

MOVE? 

10A3 

27 

01 



BEG 


C0PY45 


10A5 

39 




RTS 



RETURN 

10A6 

7E 

08 

A2 

C0PY45 

JMP 


PRINT6 


10A9 

BD 

06 

98 

C0PY5 

JSR 


GETNUM 

GET LINE NUMBER 

10AC 

4F 




CLR 

A 



10AD 

97 

92 



STA 

A 

NUMBER+2 


10AF 

BD 

08 

OF 


JSR 


UPONE 


10B2 

20 

EO 


TTi 

BRA 


C0PY4 


10B4 

53 



OVLPST 

FCC 


'SOURCE OVERLAPS DESTINATION' 


10B5 4F 
10B6 55 
10B7 52 
10B8 43 
10B? 45 
10BA 20 
10BB 4F 
10BC 56 
10BD 45 
10BE 52 
10BF 4C 
10C0 41 
10C1 50 
10C2 53 
10C3 20 
10C4 44 
10C5 45 




C 


L 
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LOCN B1 B2 B3 
10C6 53 
10C7 54 
10C6 4? 

IOC? 4E 
10CA 41 
10CB 54 
10CC 49 
10CD 4F 
10CE 4E 

10CF 04 FCB 4 


* TAB SET COMMAND 


10D0 

CE 

00 

9D 

TAB 

LDX 

♦TABBUF 

SET POINTER 

10D3 

DF 

?B 



STX 

TABPNT 


10D5 

DE 

44 


TAB2 

LDX 

BUFPNT 

POINT TO BUFFER 

10D7 

BD 

04 

92 


JSR 

SKIPSP 


10DA 

DF 

44 



STX 

BUFPNT 

SAVE 

10DC 

BD 

06 

63 


JSR 

TSTEND 


10DF 

27 

2F 



BEQ 

TAB6 


10E1 

BD 

07 

3B 


JSR 

CLASS 

CLASSIFY CHAR* 

10E4 

Cl 

01 



CMP B 

#1 

IS IT A NUMBER? 

10E6 

27 

07 



BEG 

TAB4 


10E8 

22 

2E 



BHI 

TAB8 


10EA 

08 




INX 


BUMP THE POINTER 

10EB 

DF 

44 



STX 

BUFPNT 

SAVE IT 

10ED 

20 

E6 



BRA 

TAB2 


10EF 

BD 

07 

55 

TAB4 

JSR 

BCDCON 

GET COLUMN 

10F2 

DF 

44 



STX 

BUFPNT 


10F4 

5F 




CLR B 



10F5 

BD 

08 

38 


JSR 

TSTNUM 

IS IT ZERO? 

10F8 

27 

16 



BEG 

TAB6 


10FA 

5C 



TAB5 

INC B 


BUMP COUNT 

10FB 

37 



3 *V : • 

PSH B 



10FC 

BD 

08 

2A 


JSR 

DECNUM 

DEC THE COUNT 

10FF 

33 




PUL B 



1100 

26 

F8 



BNE 

TABS 


1102 

DE 

9B 



LDX 

TABPNT 

POINT TO TABS 

1104 

E7 

00 



STA B 

OrX 

SAVE COUNT 

1106 

08 




INX 



1107 

DF 

9B 



STX 

TABPNT 

FIX TAB POINTER 

1109 

8C 

00 

B1 


CPX 

♦TABEND 


HOC 

27 

02 



BEG 

TAB6 


110E 

20 

C5 



BRA 

TAB2 


1110 

4F 



TAB6 

CLR A 



1111 

DE 

9B 



LDX 

TABPNT 


1113 

A7 

00 



STA A 

OfX 

CLEAR TAB 

1115 

7E 

09 

30 


JMP 

NUMSE6 


1118 

7E 

04 

71 

TAB8 

JMP 

SYNERR 

REPORT ERROR 


* PRINT HEADER COMMAND 


11IB CE 00 ?D 


HEADER LDX 


♦TABBUF SET POINTER 
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LOCN 

B1 

B2 

B3 




111E 

DF 

9B 



STX 


1120 

DE 

44 



LDX 


1122 

BD 

04 

92 


JSR 


1125 

BD 

06 

63 


JSR 


1128 

27 

1C 



BEG 


112A 

BD 

07 

3B 

HEADE2 

JSR 


112D 

Cl 

01 



CMP 

B 

112F 

26 

E7 



BNE 


1131 

BD 

07 

55 


JSR 


1134 

DF 

44 



STX 


1136 

BD 

08 

38 


JSR 


1139 

27 

40 



BEG 


113B 

5F 




CLR 

B 

113C 

5C 



HEADE3 

INC 

B 

113D 

37 




PSH 

B 

113E 

BD 

08 

2A 


JSR 


1141 

33 




PUL 

B 

1142 

26 

F8 



BNE 


1144 

D7 

96 


HEADE4 

STA 

B 

1146 

BD 

07 

A3 

HEAD42 

JSR 


1149 

BD 

04 

4E 


JSR 


114C 

96 

6A 



LDA 

A 

114E 

27 

08 



BEG 


1150 

C6 

08 



LDA 

B 

1152 

BD 

08 

CD 

HEAD45 

JSR 


1155 

5A 




DEC 

B 

1156 

26 

FA 



BNE 


1158 

BD 

08 

CD 

HEADE5 

JSR 


115B 

5F 




CLR 

B 

115C 

37 



HEAD55 

PSH 

B 

115D 

BD 

06 

7C 


JSR 


1160 

33 




PUL 

B 

1161 

5C 




INC 

B 

1162 

DE 

9B 



LDX 


1164 

El 

00 



CMP 

B 

1166 

26 

OA 



BNE 


1168 

86 

2D 



LDA 

A 

116A 

BD 

02 

09 


JSR 


116D 

08 




I NX 


116E 

DF 

9B 



STX 


1170 

20 

05 



BRA 


1172 

96 

91 


HEAD57 

LDA 

A 

1174 

BD 

09 

17 


JSR 


1177 

D1 

96 


HEAD58 

CMP 

B 

1179 

26 

El 



BNE 


117B 

7E 

09 

30 

HEADE7 

JMP 







* SET 

UP ZONE 

117E 

DE 

44 


SZONE 

LDX 

1180 

BD 

04 

92 


JSR 

1183 

BD 

06 

63 


JSR 

1186 

27 

OA 



BEG 

1188 

BD 

07 

3B 


JSR 


TABPNT 

BUFPNT 

SKIPSP 

SKIP ALL SPACES 

TSTEND 

HEAD42 

CLASS 

CLASSIFY CHAR* 

#1 

IS IT NUMBER? 

TAB8 

ERROR 

BCDCON 

BUFPNT 

GET NUMBER COUNT 

TSTNUM 

IS IT ZERO? 

HEADE7 

BUMP COUNTER 

DECNUM 

DEC NUMBER 

HEADE3 

HEDCNT 

SAVE COUNT 

CLRNUM 

CLEAR NUMBER 

PCRLF 

OUTPUT C.R. L.F* 

NUMFLG 

HEADE5 

LINE NUMBERS ON? 

*8 

SET COUNT 

OUTSPC 

OUT SPACE 

HEAD45 

OUTSPC 

CLEAR COUNT 

INCNUM 

BUMP NUMBER 


BUMP COUNT 

TABPNT 

GET TAB COL* 

OrX 

HEAD57 

THERE? 

#'- 

SET UP 

OUTCH 

OUTPUT IT 

BUMP POINTER 

TABPNT 

HEAD58 

NUMBER+1 

GET NUMBER 

OUTHR 

HEDCNT 

OUTPUT IT 

HEAD55 

NUMSE6 

REPEAT TIL DONE 

COLUMN COMMAND 

BUFPNT 

SKIPSP 

TSTEND 

POINT TO BUFFER 

SZ0NE2 

CLASS 

CLASSIFY CHARACTER 




c 
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LOCN 

B1 

B2 

B3 






118B 

Cl 

01 



CMP 

B 

*1 

IS IT A NUMBER? 

118D 

27 

OA 



BEG 


SZ0NE3 


118F 

22 

38 



BHI 


SZ0NE8 


1191 

08 




INX 




1192 

DF 

44 


SZ0NE2 

STX 


BUFPNT 

SAVE POINTER 

1194 

CE 

00 

01 


LDX 


#♦0001 

SET COLUMN 1 

1197 

20 

07 



BRA 


SZ0NE4 


1199 

BD 

07 

55 

SZ0NE3 

JSR 


BCDCON 

GET NUMBER 

119C 

DF 

44 



STX 


BUFPNT 

SAVE POINTER 

119E 

DE 

90 



LDX 


NUMBER 


11 AO 

DF 

5E 


SZ0NE4 

STX 


Z0NE1 

FIX Z0NE1 

11A2 

DE 

44 



LDX 


BUFPNT 


11A4 

BD 

04 

92 

SZ0NE5 

JSR 


SKIPSP 

SKIP ALL SPACES 

11A7 

BD 

06 

63 


JSR 


TSTEND 


11AA 

27 

OC 



BEG 


SZ0NE6 


11 AC 

BD 

07 

3B 


JSR 


CLASS 

GO CLASSIFY 

11AF 

Cl 

01 



CMP 

B 

#1 

IS IT A NUMBER? 

11B1 

27 

OA 



BEG 


SZ0NE7 


11B3 

22 

14 



BHI 


SZ0NE8 

ERROR 

11B5 

08 




INX 



BUMP POINTER 

11B6 

20 

EC 



BRA 


SZ0NE5 


11B8 

CE 

01 

36 

SZ0NE6 

LDX 


#♦0136 

SET COLUMN 136 

1 IBB 

20 

07 



BRA 


SZ0N75 


11BD 

BD 

07 

55 

SZ0NE7 

JSR 


BCDCON 

GET NUMBER 

11C0 

DF 

44 



STX 


BUFPNT 

SAVE POINTER 

11C2 

DE 

90 



LDX 


NUMBER 


11C4 

DF 

60 


SZ0N75 

STX 


Z0NE2 

SET Z0NE2 

11C6 

7E 

09 

30 


JMP 


NUMSE6 


11C9 

7E 

04 

41 

SZ0NE8 

JMP 


ERROR 

REPORT ERROR 






* SET 

SPECIAL 

CHARATERS 

COMMAND 

11CC 

DE 

44 


SET 

LDX 

BUFPNT 

SET POINTER 

1 ICE 

BD 

04 

92 


JSR 

SKIPSP 


11D1 

DF 

44 



STX 

BUFPNT 


11D3 

DF 

40 



STX 

TEMP 

SAVE POINTER 

11D5 

CE 

12 

41 


LDX 

♦CHRTBL 

POINT TO TABLE 

11D8 

7E 

04 

00 


JMP 

EDIT6 

GO FIND NAME 





♦ SET 

SPECIALS 

HERE 






* TAB 




UDB 

CE 

00 

B2 

STAB 

LDX 

#TABCH 

POINT TO TAB CHAR 

1 IDE 

20 

OD 



BRA 

SETC 






♦ FILL 




11E0 

CE 

00 

B3 

SFILL 

LDX 

♦FILL 

POINT TO FILL 

11E3 

20 

08 



BRA 

SETC 






* EOL 




11E5 

CE 

00 

B5 

SEOL 

LDX 

#EOL 

POINT TO EOL CHAR 

11E8 

20 

03 



BRA 

SETC 






# LINO 




11EA 

CE 

00 

B4 

SLINO 

LDX 

♦LINO 

POINT TO IT 
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LOCN B1 B2 B3 






* SET 

THE CHARACTER 


11ED 

DF 

40 


SETC 

STX 


TEMP 

SAVE POINTER 

11EF 

DE 

44 



LDX 


BUFPNT 

GO TO BUFFER 

11F1 

BD 

04 

92 


JSR 


SKIPSP 


11F4 

81 

3D 



CMP 

A 

♦ ' = 

IS IT = 

11F6 

26 

3F 



BNE 


SETC8 

ERROR 

11F8 

8D 

40 



BSR 


CHFRQU 


UFA 

26 

3B 



BNE 


SETC8 

ERROR 

11FC 

8D 

3C 



BSR 


CHFRQU 


11FE 

26 

04 



BNE 


SETC2 


1200 

4F 




CLR 

A 


SET NULL CHAR. 

1201 

36 




PSH 

A 



1202 

20 

OF 



BRA 


SETC4 


1204 

BD 

07 

3B 

SETC2 

JSR 


CLASS 

GO CLASSIFY 

1207 

5D 




TST 

B 



1208 

26 

2D 



BNE 


SETC8 

ERROR? 

120A 

81 

OD 



CMP 

A 

♦CRGRET 


120C 

27 

29 



BEG 


SETC8 


120E 

36 




PSH 

A 


SAVE CHAR 

120F 

8D 

29 



BSR 


CHFRQU 


1211 

26 

24 



BNE 


SETC8 

ERROR 

1213 

08 



SETC4 

INX 




1214 

DF 

44 



STX 


BUFPNT 

SAVE POSITION 

1216 

BD 

09 

A4 


JSR 


TFORCR 

TEST END 

1219 

32 




PUL 

A 


GET CHAR 

121A 

DE 

40 



LDX 


TEMP 

RESTORE POINTER 

121C 

8C 

00 

B3 


CPX 


♦FILL 

IS IT FILL CHAR? 

121F 

26 

07 



BNE 


SETC5 


1221 

4D 



TST 

A 



1222 

26 

OE 



BNE 


SETC6 


1224 

86 

20 


: " 

LDA 

A 

♦ ' 

SETUP SPACE 

1226 

20 

OA 



BRA 


SETC6 


1228 

8C 

00 

B4 

SETC5 

CPX 


♦LINO 

IS IT LINO? 

122B 

26 

05 



BNE 


SETC6 


122D 

4D 




TST 

A 



122E 

26 

02 


. 

BNE 


SETC6 


1230 

86 

23 



LDA 

A 

♦ '♦ 

SET IT 

1232 

A7 

00 


SETC6 

STA 

A 

OfX 


1234 

7E 

09 

30 


JMP 


NUMSE6 

RETURN 

1237 

7E 

04 

71 

SETC8 

JMP 


SYNERR 

REPORT ERROR 





* CHECK 

FOR 

QUOTE 



123 A 
123B 
123E 
1240 

08 

BD 

81 

39 

04 92 
27 

CHFRQU 

INX 

JSR 

CMP 

RTS 

SKIPSP 

A ♦" 

BUMP 

SKIP 

POINTER 

SPACES 


* SPECIAL CHARACTER TABLE 
1241 54 CHRTBL FCC 'TAB' 




C 


■*, 


L 








iffl 


TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN 

B1 

B2 B3 



1242 

41 




1243 

42 




1244 

00 


FCB 

0 

1245 

11 

DB 

FDB 

STAB 

1247 

46 


FCC 

'FILL' 

1248 

49 




1249 

4C 




124A 

4C 




124B 

00 


FCB 

0 

124C 

11 

EO 

FDB 

SFILL 

124E 

45 


FCC 

'EOL' 

124F 

4F 




1250 

4C 




1251 

00 


FCB 

0 

1252 

11 

E5 

FDB 

SEOL 

1254 

4C 


FCC 

'LINO' 

1255 

49 




1256 

4E 




1257 

4F 




1258 

00 


FCB 

0 

1259 

11 

EA 

FDB 

SLINO 

125B 

00 


FCB 

0 






* EXPAND TABS 

COMMAND 


125C 

BD 

08 

A8 

EXPAND 

JSR 


TSTEMP 


125F 

DE 

44 



LDX 


BUFPNT 

GET POINTER 

1261 

BD 

04 

E9 


JSR 


FINDT 

FIND TARGET 

1264 

DE 

4A 



LDX 


NEWPOS 

SAVE IT 

1266 

86 

01 



LDA 

A 

*1 


1268 

97 

8A 



STA 

A 

PRNFLG 

SET FLAG 

126A 

DF 

48 


EXPAN1 

STX 


CURPOS 

SET CURRENT 

126C 

9C 

93 



CPX 


TRGLIN 

LAST LINE? 

126E 

26 

03 



BNE 


EXPAN2 


1270 

7F 

00 

8A 


CLR 


PRNFLG 

CLEAR FLAG 

1273 

8D 

10 


EXPAN2 

BSR 


EXPLIN 

GO DO LINE 

1275 

96 

8A 



LDA 

A 

PRNFLG 

DONE? 

1277 

27 

09 


> 

BEG 


EXPAN5 


1279 

DE 

4A 



LDX 


NEWPOS 

GET POINTER 

127B 

BD 

06 

C3 


JSR 


NXTLIN 

FIND NEXT LINE 

127E 

DF 

4A 



STX 


NEWPOS 

SAVE 

1280 

20 

E8 



BRA 


EXPAN1 


1282 

7E 

08 

A2 

EXPAN5 

JMP 


PRINT6 




* EXPAND TABS IN ONE LINE 


1285 

96 

B2 

EXPLIN LDA 

A 

1287 

91 

B3 

CMP 

A 

1289 

27 

51 

BEG 


128B 

CE 

00 9D 

LDX 


128E 

DF 

9B 

STX 


1290 

E6 

00 

LDA 

B 

1292 

27 

48 

BEQ 



TABCH 

FILL CHECK IF FILL=TAB 

EXPLI7 

♦TABBUF POINT TO TABS 
TABPNT 

OfX GET COLUMN 

EXPLI7 


51 







TSC 6800 


LOCN B1 

1294 5F 

1295 D7 
1297 DE 
1299 9C 
129B 26 
129D 7E 
12A0 08 
12A1 08 
12A2 08 
12A3 5C 
12A4 A6 
12A6 81 
12A8 27 
12AA 91 
12AC 27 
12AE 08 
12AF 20 
12B1 DF 
12B3 DE 
12B5 El 
12B7 24 
12B9 86 
12BB 4C 
12BC 5C 
12BD El 
12BF 26 
12C1 97 
12C3 DE 
12C5 DF 
12C7 BD 
12CA D6 
12CC 5C 
12CD 96 
12CF A7 
12D1 08 
12D2 5A 
12D3 26 
12D5 20 
12D7 08 
12D8 A6 
12DA 26 
12DC 39 


12DD BD 
12E0 DE 
12E2 BD 
12E5 BD 
12E8 26 
12EA 7E 
12ED BD 
12F0 5D 
12F1 26 


TEXT EDITING SYSTEM 


PAGE 52 


B2 B3 








CLR 

B 


CLEAR COUNT 

8D 


STA 

B 

CHRCNT 


4A 


LDX 


NEWPOS 

POINT TO LINE 

99 


CPX 


FILEND 


03 


BNE 


EXPLI1 


03 8A 


JMP 


EDIT 



EXPLI1 

INX 



BUMP 3 TIMES 



INX 



PAST LINE NO* 



INX 





EXPLI2 

INC 

B 


BUMP COUNTER¬ 

00 


LDA 

A 

OrX 

CHECK FOR TAB 

OD 


CMP 

A 

♦CRGRET 


32 


BEG 


EXPLI7 


B2 


CMP 

A 

TABCH 

IS IT TAB? 

03 


BEQ 


EXPLI3 




INX 



BUMP THE POINTER 

F2 


BRA 


EXPLI2 


40 

EXPLI3 

STX 


TEMP 

SAVE POSITION 

9B 


LDX 


TABPNT 


00 

EXPL35 

CMP 

B 

OrX 

CHECK COLUMN 

IE 


BCC 


EXPLI6 


FF 


LDA 

A 

#*FF 

SET COUNT 


EXPLI4 

INC 

A 





INC 

B 



00 


CMP 

B 

OrX 

TAB COL. YET? 

FA 


BNE 


EXPLI4 


8E 


STA 

A 

CHRCNT+1 

SAVE COUNT 

40 


LDX 


TEMP 


58 


STX 


SPCPT1 

SET SPACE POINTER 

OC 08 


JSR 


MAKSPC 

GO MAKE ROOM 

8E 


LDA 

B 

CHRCNT+1 




INC 

B 



B3 


LDA 

A 

FILL 

GET FILL CHARACTER 

00 

EXPLI5 

STA 

A 

OrX 

PUT CHARACTER 



INX 


* 




DEC 

B 


DEC COUNT 

FA 


BNE 


EXPLI5 


AE 


BRA 


EXPLIN 

REPEAT 


EXPLI6 

INX 



BUMP POINTER 

00 


LDA 

A 

OrX 


D9 


BNE 


EXPL35 

• 


EXPLI7 

RTS 



RETURN 




* APPEND COMMAND 


08 

CO 

APPEND 

JSR 

TSTEMP 


44 



LDX 

BUFPNT 

GET POINTER 

04 

92 


JSR 

SKIPSP 


06 

63 


JSR 

TSTEND 

ALL? 

03 



BNE 

APPEN1 


04 

71 

APPENO 

JMP 

SYNERR 


07 

3B 

APPEN1 

JSR 

CLASS 

GO CLASSIFY 




TST B 



F7 



BNE 

APPENO 
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TSC 6800 TEXT 1 

EDITING 

SYSTEM 



LOCN B1 B2 

B3 





12F3 BD 05 

FA 


JSR 

SETDEL 

SET DELIMITERS 

12F6 BD 07 

3B 


JSR 

CLASS 

CLASSIFY CHARACTER 

12F9 Cl 01 



CMP B 

♦ 1 

IS IT NUMBER? 

12FB 26 13 



BNE 

APPEN3 


12FD BD 07 

55 


JSR 

BCDCON 

GET COLUMN NO. 

1300 BD 08 

38 


JSR 

TSTNUM 

IS IT ZERO? 

1303 27 OB 



BEQ 

APPEN3 


1305 4F 



CLR A 



1306 4C 


APPEN2 

INCA 


BUMP COUNTER 

1307 36 



PSH A 



1308 BD 08 

2A 


JSR 

DECNUM 

DEC NUMBER 

130B 32 



PUL A 


RESTORE COUNT 

130C 26 F8 



BNE 

APPEN2 


130E 97 7A 



STA A 

APPCOL 

SAVE COUNT 

1310 BD OF 

07 

APPEN3 

JSR 

SVSTPT 

SAVE DEL INFO 

1313 DE 44 



LDX 

BUFPNT 

GET POINTER 

1315 BD 04 

E9 


JSR 

FINDT 

FIND TARGET 

1318 BD OF 

14 


JSR 

RSTSPT 

RESTORE DEL INFO 

131B 7F 00 

8D 


CLR 

CHRCNT 


131E 7C 00 

8A 


INC 

PRNFLG 

SET FLAG 

1321 DE 4A 



LDX 

NEWPOS 

SET POINTER 

1323 9C 93 


APPE35 

CPX 

TRGLIN 

AT TARGET? 

1325 26 03 



BNE 

APPEN4 


1327 7F 00 

8A 


CLR 

PRNFLG 

CLEAR FLAG 

132A 08 


APPEN4 

INX 


BUMP 3 TIMES 

132B 08 



INX 



132C 08 



INX 



132D 96 7A 



LDA A 

APPCOL 

GET COL. NUMBER 

132F 26 06 



BNE 

APPEN5 


1331 09 



DEX 



1332 BD 07 

E6 


JSR 

FNDCRT 

GET TO C.R. 

1335 20 37 



BRA 

APPEN7 


1337 16 


APPEN5 

TAB 



1338 5A 


APPE53 

DEC B 


DEC COUNT 

1339 27 1C 



BEG 

APPE65 


133B A6 00 



LDA A 

0 r X 

CHECK CHARACTER 

133D 81 OD 



CMP A 

♦CRGRET 


133F 27 03 



BEG 

APPEN6 


1341 08 



INX 


BUMP POINTER 

1342 20 F4 



BRA 

APPE53 


1344 DF 58 


APPEN6 

STX 

SPCPT1 

SET POSITION 

1346 D7 8E 



STA B 

CHRCNT+1 


1348 37 



PSH B 



1349 BD OC < 

08 


JSR 

MAKSPC 

GO MAKE MORE ROOM 

134C 33 



PUL B 



134D 86 20 



LDA A 

#' 

SET UP SPACE 

134F A7 00 


APPE63 

STA A 

0 r X 

PUT IT 

1351 08 



INX 


BUMP POINTER 

1352 5A 



DEC B 


DEC THE COUNT 

1353 26 FA 



BNE 

APPE63 


1355 20 17 



BRA 

APPEN7 


1357 DF 58 


APPE65 

STX 

SPCPT1 

SET POSITION 

1359 DF 40 



STX 

TEMP 


135B A6 00 


APPE66 

LDA A 

0»X 

GET CHAR. 

135D 81 OD 



CMP A 

♦CRGRET 

IS IT C.R.? 
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LOCN 

B1 

B2 

B3 






135F 

27 

04 



BEQ 


APPE67 


1361 

08 




INX 




1362 

5C 




INC 

B 



1363 

20 

F6 



BRA 


APPE66 


1365 

D7 

8E 


APPE67 

STA 

B 

CHRCNT+1 


1367 

DF 

5A 



STX 


SPCPT2 


1369 

BD 

OD 

43 


JSR 


DELCHR 

DELETE REST OF LINE 

136C 

DE 

40 



LDX 


TEMP 

GET POINTER 

136E 

DF 

58 


APPEN7 

STX 


SPCPT1 


1370 

96 

7B 



LDA 

A 

STRCNT 

GET COUNT 

1372 

27 

12 



BEQ 


APPE78 


1374 

97 

8E 


APPE72 

STA 

A 

CHRCNT+1 


1376 

BD 

OC 

08 


JSR 


MAKSPC 

GO MAKE ROOM 

1379 

DE 

50 



LDX 


STRNGE 

POINT TO STRING 

137B 

DF 

58 



STX 


SPCPT1 


137D 

DE 

4E 



LDX 


STRNGB 


137F 

DF 

40 



STX 


TEMP 

SET END 

1381 

BD 

OC 

64 


JSR 


MAKS55 

PUT IN STRING 

1384 

DE 

5A 



LDX 


SPCPT2 

GET POINTER 

1386 

5F 



APPE78 

CLR 

B 



1387 

BD 

07 

F6 


JSR 


BAK0N2 


138A 

BD 

08 

3F 


JSR 


VERLIN 


138D 

96 

8A 



LDA 

A 

PRNFLG 

DONE? 

138F 

27 

07 



BEQ 


APPEN8 


1391 

BD 

06 

C3 


JSR 


NXTLIN 

FIND NEXT LINE 

1394 

DF 

4A 



STX 


NEWPOS 


1396 

20 

8B 



BRA 


APPE35 

REPEAT 

1398 

DF 

48 


APPEN8 

STX 


CURPOS 


139A 

7E 

08 

A2 

APPEN9 

JMP 


PRINT6 



* SAVE CURRENT FILE ON TAPE 


139D 

BD 

09 

A4 

SAVE 

JSR 

TFORCR 

4 * -■ ■ 

13 AO 

DE 

97 


' 

LDX 

FILBEG 

SET POINTER 

13A2 

DF 

58 



STX 

SPCPT1 


13A4 

DE 

99 



LDX 

FILEND 


13A6 

DF 

5A 



STX 

SPCPT2 

SET END 

13A8 

8D 

29 



BSR 

RECORD 

GO RECORD IT 

13AA 

7E 

09 

30 

SAVE4 

JMP 

NUMSE6 







* WRITE PART 

OF FILE TO 

TAPE 

13AD 

BD 

08 

A8 

WRITE JSR 

TSTEMP 


13B0 

DE 

44 


LDX 

BUFPNT 

SET POINTER- 

13B2 

BD 

04 

E9 

JSR 

FINDT 

FIND TARGET 

13B5 

96 

8C 


LDA A 

DRCTN 

CHECK DIRECTION 

13B7 

26 

OC 


BNE 

WRITE2 


13B9 

BD 

07 

E6 

JSR 

FNDCRT 


13BC 

08 



INX 



13BD 

DF 

5A 


STX 

SPCPT2 

SET POINTER- 

13BF 

DE 

4A 


LDX 

NEWPOS 


13C1 

DF 

58 


STX 

SPCP11 

SET BEGINNING 

13C3 

20 

OA 


BRA 

WRITE4 






TSC 6800 TEXT EDITING SYSTEM 


LOCN B1 B2 B3 


13C5 

DF 

58 

WRITE2 

STX 

SPCPT1 


13C7 

DE 

4A 


LDX 

NEWPOS 


13C9 

BD 

07 E6 


JSR 

FNDCRT 


13CC 

08 



I NX 



13CD 

DF 

5A 


STX 

SPCPT2 

SET END 

13CF 

8D 

02 

WRITE4 

BSR 

RECORD 

GO RECORD 

13D1 

20 

D7 

WRITES 

BRA 

SAUE4 



# RECORD RECORD 


13D3 

96 

B9 

RECORD 

LDA A 

RONCH 


13D5 

BD 

02 OF 


JSR 

TOUCH 


13D8 

8D 

2B 


BSR 

TDELAY 

GO DELAY 

13DA 

DE 

58 


LDX 

SPCPT1 

SET POINTER 

13DC 

9C 

5A 

REC0R2 

CPX 

SPCPT2 

DONE? 

13DE 

27 

15 


BEQ 

REC0R4 


13E0 

08 



INX 


GET PAST NUMBERS 

13E1 

08 



INX 



13E2 

08 



INX 



13E3 

A6 

00 

REC025 

LDA A 

OrX 

GET A CHARACTER 

13E5 

81 

OD 


CMP A 

♦CRGRET 


13E7 

27 

06 


BEQ 

REC0R3 


13E9 

BD 

02 OF 


JSR 

TOUCH 

OUTPUT IT 

13EC 

08 



INX 


BUMP THE POINTER 

13ED 

20 

F4 


BRA 

REC025 


13EF 

BD 

02 OF 

REC0R3 

JSR 

TOUCH 

OUTPUT IT 

13F2 

08 



INX 



13F3 

20 

E7 


BRA 

REC0R2 


13F5 

86 

1A 

REC0R4 

LDA A 

#$1A 

SET CONTROL Z c V 

13F7 

BD 

02 OF 


JSR 

TOUCH 

OUTPUT IT 

13FA 

CE 

FF FF 

REC0R5 

LDX 

#$FFFF 

SET COUNT 

13FD 

09 


REC0R6 

DEX 


"'HI)' ^ 

13FE 

26 

FD 


BNE 

REC0R6 

"'••33 "tv 

1400 

96 

BA 

REC0R7 

LDA A 

ROFCH 


1402 

BD 

02 OF 


JSR 

TOUCH 

; i , f . - 


. 





* DELAY 

FOR 

TAPE 



1405 

96 

B6 

TDELAY 

LDA 

A 

DELAY 

GET 

FACTOR 

1407 

27 

09 

DELAY1 

BEQ 


DELAY4 



1409 

CE 

FF FF 


LDX 


#$FFFF 

SET 

COUNT 

140C 

09 


DELAY2 

DEX 



DEC 

COUNT 

140D 

26 

FD 


BNE 


DELAY2 



140F 

4A 



DEC 

A 


DONE? 

1410 

20 

F5 


BRA 


DELAY! 



1412 

39 


DELAY4 

RTS 



RETURN 


* PUT A GAP ON TAPE (40 NULLS) 


1413 BD 0? A4 GAP 


JSR 


TFORCR 
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LOCN 

B1 

B2 

B3 






1416 

96 

B9 


LDA 

A 

RONCH 

TURN ON TAPE 


1418 

BD 

02 

OF 

JSR 


TOUCH 



141B 

8D 

E8 


BSR 


TDELAY 

GO DELAY 


141D 

C6 

28 


LDA 

B 

*40 

SETUP COUNT 


141F 

4F 


GAP2 

CLR 

A 


SET NULL 


1420 

BD 

02 

OF 

JSR 


TOUCH 

OUTPUT IT 


1423 

SA 



DEC 

B 


DEC COUNT 


1424 

26 

F9 


BNE 


GAP2 



1426 

8D 

D8 


BSR 


REC0R7 



1428 

20 

A7 


BRA 


WRITE5 








* READ 

TAPE 

ROUTINE 


142A 

BD 

09 

A4 

READ 

JSR 


TFORCR 


142D 

96 

B7 



LDA 

A 

TONCH 


142F 

BD 

02 

OF 

*.c q 

JSR 


TOUCH 

B b P C °F 

1432 

8D 

D1 


i 

BSR 


TDELAY 

GO DELAY 1 

1434 

BD 

07 

A3 


JSR 


CLRNUM 


1437 

DE 

99 



LDX 


FILEND 

GET END 

1439 

DF 

40 



STX 


TEMP 


143B 

9C 

97 



CPX 


FILBEG 

EMPTY? 

143D 

27 

08 



BEG 


READl 


143F 

BD 

07 

FO 


JSR 


BAKONE 

MOVE BACK ONE 

1442 

BD 

06 

98 


JSR 


GETNUM 

GET NUMBER 

1445 

DE 

99 



LDX 


FILEND 

POINT TO END 

1447 

8D 

35 


READl 

BSR 


RDCHKE 


1449 

8D 

33 



BSR 


RDCHKE 


144B 

8D 

31 



BSR 


RDCHKE 


144D 

BD 

02 

OC 

READ2 

JSR 


TINCH 

GET CHAR FROM TAPE 

1450 

81 

OD 



CMP 

A 

♦CRGRET 


1452 

27 

OC 



BEG 


READ3 


1454 

81 

1A 



CMP 

A 

*$1 A 

IS IS CNTRL Z? 

1456 

27 

OC 



BEG 


READ4 


1458 

81 

IF 



CMP 

A 

#*1F 


145A 

23 

FI 



BLS 


READ2 


145C 

8D 

21 



BSR 


RDCHK2 


145E 

20 

ED 



BRA 


READ2 


1460 

8D 

ID 


READ3 

BSR 


RDCHK2 


1462 

20 

E3 



BRA 


READl 

REPEAT 

1464 

5F 



READ4 

CLR 

B 



1465 

BD 

07 

F6 


JSR 


BAK0N2 

FIND LAST C*R» 

1468 

DF 

99 


READ5 

STX 


FILEND 

SET NEW END 

146A 

7C 

00 

83 


INC 


CHKFLG 


146D 

96 

B8 



LDA 

A 

TOFCH 


146F 

BD 

02 

OF 


JSR 


TOUCH 


1472 

9C 

40 



CPX 


TEMP 


1474 

27 

05 



BEG 


READ6 


1476 

DE 

40 



LDX 


TEMP 


1478 

BD 

06 

BO 


JSR 


RENUM2 

GO NUMBER NEW LINES 

147B 

7E 

09 

90 

READ6 

JMP 


B0TT01 



* READ AND CHECK END 
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LOCN 

B1 

B2 

B3 




147E 

4F 



RDCHKE 

CLR 

A 

147F 

BC 

02 

12 

RDCHK2 

CPX 


1482 

27 

04 



BEQ 


1484 

A7 

00 



STA 

A 

1486 

08 




INX 


1487 

39 




RTS 


1488 

BD 

02 

OC 

RDCHK3 

JSR 


148B 

81 

1A 



CMP 

A 

148D 

26 

F9 



BNE 


148F 

20 

D3 



BRA 


1491 

OD 




FCB 



1492 BEGPNT EGU 

ORG 

A048 02 00 FDD 


END 



CLEAR BYTE 

MEMEND 

RDCHK3 

END OF MEMORY? 

OrX 

PUT CHAR 

BUMP THE POINTER 
RETURN 

TINCH 

GET CHAR FROM TAPE 

**1A 

RDCHK3 

READ4 

IS IT TERM? 

♦ OD 

SET END !! 


* 

♦A048 

START 


SYMBOL TABLE: 

ALLFLG 0077 
APPEN2 1306 
APPEN7 136E 
APPE63 134F 
APPE78 1386 
BAK0N5 0808 
BCDC04 0769 
BCDC15 0761 
BFRSTR 0DB4 
B0TT01 0990 
BUFSAV 0046 
CFIND4 0A1B 
CFIN13 09FC 
CHANG1 0DD8 
CHANG6 0E71 
CHAN35 ODFE 
CHAN55 0E6A 
CHAN67 OEAA 
CHAN86 OEFC 
CHGFLG 0085 
CHRTBL 1241 
CMPZN1 0644 
COPY 0FF3 
C0PY15 103C 
C0PY4 1094 
CRLFST 0458 


APPCOL 007A 
APPEN3 1310 
APPEN8 1398 
APPE65 1357 
BACKSP 0008 
BAK0N6 080B 
BCDC05 0778 
BCDC65 0787 
BMPFLG 007D 
B0TT02 0998 
CFIND 09CF 
CFIND5 0A25 
CFIN14 0A02 
CHANG2 ODES 
CHANG8 0EC8 
CHAN37 0E02 
CHAN61 0E7C 
CHAN80 0ED3 
CHA510 0E51 
CHGONF 0079 
CLASS 073B 
CMPZN2 064F 
COPYO 101C 
C0PY18 1042 
C0PY45 10A6 
CURPOS 0048 


APPEND 

12DD 

APPEN4 

132A 

APPEN9 

139A 

APPE66 

135B 

BAKONE 

07F0 

BCDCON 

0755 

BCDC06 

077C 

BCDC67 

0789 

BMPNUM 

066A 

BUFFER 

OOBB 

CFIND1 

09E4 

CFIND6 

0A28 

CFIN15 

0A05 

CHANG3 

0DF4 

CHANG9 

0F04 

CHAN50 

0E41 

CHAN62 

0E8B 

CHAN81 

OEDD 

CHA675 

OEBD 

CHGPNT 

0064 

CLASS2 

074A 

CMPZ14 

064E 

C0PY02 

1010 

C0PY2 

104E 

C0PY5 

10A9 

DECCNT 

0089 


APPENO 12EA 
APPEN5 1337 
APPE35 1323 
APPE67 1365 
BAK0N2 07F6 
BCDC01 0757 
BCDC07 078B 
BEGPNT 1492 
BMPNU4 0674 
BUFLIM 04BB 
CFIND2 0A08 
CFIND9 0A2B 
CFNTST 0A31 
CHANG4 0E28 
CHAN12 ODDB 
CHAN51 0E44 
CHAN65 0E91 
CHAN82 0EE6 
CHFRQU 123A 
CHKFLG 0083 
CLASS4 0754 
CMPZ24 0659 
C0PY05 1014 
C0PY25 1053 
CPYDRC 008B 
DECNUM 082A 


APPEN1 12ED 
APPEN6 1344 
APPE53 1338 
APPE72 1374 
BAK0N4 0807 
BCDC02 0764 
BCDC08 079A 
BELL 0007 
BOTTOM 098E 
BUFPNT 0044 
CFIND3 OAIO 
CFIN12 09E8 
CHANGE ODCB 
CHANG5 0E31 
CHAN15 ODDE 
CHAN52 0E5F 
CHAN66 0E96 
CHAN84 OEFO 
CHGEND 0066 
CHRCNT 008D 
CLRNUM 07A3 
CNRSTR 0982 
C0PY1 101F 
C0PY3 1067 
CRGRET OOOD 
DELAY 00B6 








58 


DELAY1 1407 
DELCH3 0D62 
DELC31 0D64 
DELET1 0CD6 
DELET6 0D2E 
DELE25 0CE7 
EDIT 038A 
EDIT5 03CC 
EDIT65 040D 
EOL 00B5 
EXIT 0989 
EXPLIN 1285 
EXPLI5 12CF 
FILEND 0099 
FINDL1 04E4 
FINDT2 04FB 
FIND3 0541 
FIND63 0584 
FIND71 05B2 
FIND77 05F4 
FNDCRT 07E6 
FNDNU2 07B8 
GAP 1413 
HEADE3 113C 
HEAD45 1152 
INCAMT 007C 
INCHR4 04BA 
INSERT 0AC8 
INSER5 0B1D 
INSE45 0B13 
INSE61 0B53 
INS710 0B8F 
LASTNO 005C 
MAKSP1 0C16 
MAKSP6 0C76 
MAKS24 0C49 
MOVE 0FD4 
NLDSTR 0DA3 
NTRCHS 0D7F 
NUMSE4 092D 
NXTLI2 06CA 
NXT0C3 0AA4 
OCRCNT 006E 
ONOFF 0937 
0UTBC4 08ED 
0UTB65 08FE 
OUTHR 0917 
OUTSPC 08CD 
OVREND 0073 
0VRLA4 0F7C 
OVRLST OFCA 
0VRL41 0F7E 
PDATA1 0485 
PRINT1 0885 
PROMPT 0023 
RDCHK2 147F 
READ3 1460 
REC0R2 13DC 
REC0R7 1400 


DELAY2 140C 
DELCH4 0D7C 
DELC32 0D73 
DELET2 0CE5 
DELET7 0D33 
DELE35 OCF1 
EDIT1 0397 
EDIT55 03D1 
EDIT7 0416 
EQUALS 0AA5 
EXPAND 125C 
EXPLI1 12A0 
EXPLI6 12D7 
FILL 00B3 
FINDL2 04E5 
FIND1 050A 
FIND4 054D 
FIND65 058C 
FIND72 05B8 
FIND78 05F5 
FNDCR2 07E9 
FNDNU4 07BA 
GAP2 141F 
HEADE4 1144 
HEAD55 115C 
INCH 0206 
INCH35 04B7 
INSER1 0AD7 
INSER6 0B48 
INSE51 0B2C 
INSE62 0B6B 
INS711 0BB5 
LINFLG 0075 
MAKSP2 0C21 
MAKS18 0C20 
MAKS55 0C64 
MOVFLG 0080 
NOCURL 0074 
NUMBER 0090 
NUMSE6 0930 
NXTOCR 0A83 
OCCURR 0A48 
OCRFLG 0078 
ONOFTB 0946 
0UTBC6 08F9 
0UTB75 0906 
OUTLIN 08AF 
OVER 04C1 
OVRLAO 0F3C 
0VRLA5 0F9D 
0VRL11 0F47 
0VRL43 0F96 
PEDIT 0383 
PRINT5 089D 
PSTRNG 0483 
RDCHK3 1488 
READ4 1464 
REC0R3 13EF 
REC025 13E3 


DELAY4 1412 
DELCH5 0D7E 
DELC34 OD77 
DELET3 0CE9 
DELE02 0C94 
DELE45 0D13 
EDIT2 03AB 
EDIT56 03F1 
EDIT8 0429 
EQUFLG 007E 
EXPAN1 126A 
EXPLI2 12A3 
EXPLI7 12DC 
FIND 04FD 
FINDT 04E9 
FIND14 0521 
FINDS 055A 
FIND66 0594 
FIND73 05C6 
FIN702 05AB 
FNDFLG 0070 
FNDNU5 07DA 
GETNUM 0698 
HEADE5 1158 
HEAD57 1172 
INCHAR 0499 
INCNUM 067C 
INSER2 OADE 
INSER7 0B7B 
INSE52 0B3F 
INSE71 0B80 
INS712 0BC2 
LINO 00B4 
MAKSP3 0C4E 
MAKS21 0C23 
MAK222 0C3E 
MSLFLG 006C 
NOFSTR 0464 
NUMFLG 006A 
NWFSTR 034B 
NXTOCO 0A87 
0CCUR3 0A67 
OCRTMP 0068 
OUTBCD 08D4 
0UTBC7 0900 
0UTB78 0908 
0UTLI2 08BF 
OVERLA 0F21 
0VRLA1 0F45 
0VRLA6 OFAE 
0VRL12 0F53 
0VRL45 0F98 
PREROR 0444 
PRINT6 08A2 
PSTZFL 006D 
READ 142A 
READ5 1468 
REC0R4 13F5 
RENSTR 0BF2 


DELCHR 0D43 
DELCOD 0018 
DELETE 0C8A 
DELET4 0CF4 
DELE04 0C9D 
DEL.IM 0095 
EDIT3 03BC 
EDIT58 03FB 
EDIT85 0435 
ERROR 0441 
EXPAN2 1273 
EXPLI3 12B1 
EXPL35 12B5 
FINDL 04D2 
FINDTO 04EE 
FIND16 0526 
FIND6 0565 
FIND67 05A8 
FIND74 05D0 
FIN711 05B5 
FNDNUM 07AB 
FNDN45 07D8 
HEADER 11IB 
HEADE7 117B 
HEAD58 1177 
INCHR1 049C 
INITLZ 0355 
INSER3 0AE6 
INSE42 0AF8 
INSE55 0B45 
INSE72 0BC8 
INS713 0BC5 
LSTFLG 0088 
MAKSP4 0C5A 
MAKS22 0C32 
MEMEND 0212 
NEWPOS 004A 
NORMST 0C77 
NUMSET 091D 
NXTFLG 0076 
NXT0C1 0A96 
0CCUR4 0A76 
OFF 0958 
0UTBC2 08DD 
0UTBC8 090B 
OUTCH 0209 
0UTLI4 08CB 
OVLPST 10B4 
0VRLA2 0F5C 
0VRLA7 0FC2 
0VRL16 0F56 
0VRL55 0FA6 
PRINT 0877 
PRIN12 088C 
PUTNUM 068B 
READ1 1447 
READ6 147B 
REC0R5 13FA 
RENUMB 06A5 


DELCH2 0D5B 
DELC21 0D61 
DELETO OCBB 
DELET5 0D1B 
DELE15 OCCA 
DRCTN 008C 
EDIT4 03C1 
EDIT6 0400 
EDIT88 043F 
ERRSTR 044C 
EXPAN5 1282 
EXPLI4 12BB 
FILBEG 0097 
FINDLO 04E2 
FINDT1 04F8 
FIND2 0532 
FIND62 057A 
FIND7 05A9 
FIND75 05DF 
FIXZON 065A 
FNDNU1 07B1 
FNONFL 0087 
HEADE2 112A 
HEAD42 1146 
HEDCNT 0096 
INCHR3 04AB 
INLMFL 007F 
INSER4 OAEA 
INSE43 OBOA 
INSE60 0B4F 
INSE75 0BD6 
INZFLG 008F 
MAKSPC 0C08 
MAKSP5 0C62 
MAKS23 0C45 
MIKBUG EODO 
NEXT 09CC 
NOTFND 045F 
NUMSE2 0928 
NXTLIN 06C3 
NXT0C2 0A9F 
OCCURS 0A79 
ON 0956 

0UTBC3 08E5 
0UTB35 08EB 
OUTHL 0913 
0UTL15 08BC 
OVRBEG 0072 
0VRLA3 0F6C 
0VRLA8 0FC7 
0VRL35 0F71 
PCRLF 044E 
PRINTO 087E 
PRNFLG 008A 
RDCHKE 147E 
READ2 144D 
RECORD 13D3 
REC0R6 13FD 
RENUM1 06AA 




(. 


{ 










RENUM2 

06B0 

RENUM4 

06C0 

REPFLG 

0081 

REPLAC 

0C87 

RESTRT 

0203 

ROFCH 

OOBA 

RONCH 

00B9 

RSTSPT 

OF 14 

SAVE 

139D 

SAVE4 

13AA 

SAVOCR 

0A7A 

SEOL 

11E5 

SET 

11CC 

SETC 

11 ED 

SETC2 

1204 

SETC4 

1213 

SETC5 

1228 

SETC6 

1232 

SETC8 

1237 

SETDEL 

05FA 

SETDE2 

0600 

SETDE4 

060E 

SETDE5 

0617 

SFILL 

11E0 

SKIPSA 

0491 

SKIPSP 

0492 

SKIPS2 

0498 

SKPCLS 

0738 

SLINO 

11EA 

SNGLIN 

0084 

SPCPT1 

0058 

SPCPT2 

005A 

SRCHPT 

004C 

STAB 

11DB 

STACK 

01FF 

START 

0200 

STRCNT 

007B 

STRCN1 

0071 

STRCN2 

0086 

STRGB1 

0052 

STRGE1 

0054 

STRING 

06CD 

STRIN1 

06DA 

STRIN2 

06E2 

STRIN3 

06E8 

STRIN4 

0709 

STRIN5 

070D 

STRIN6 

071C 

STRIN7 

0729 

STRIN8 

072B 

STRIN9 

0735 

STRNGB 

004E 

STRNGE 

0050 

STRPNT 

0056 

SVSTPT 

0F07 

SYNERR 

0471 

SYNSTR 

0476 

SZONE 

117E 

SZ0NE2 

1192 

SZ0NE3 

1199 

SZ0NE4 

11A0 

SZ0NE5 

11A4 

SZ0NE6 

11B8 

SZ0NE7 

11BD 

SZ0NE8 

11C9 

SZ0N75 

11C4 

TAB 

10D0 

TABBUF 

009D 

TABCH 

00B2 

TABEND 

00B1 

TABLE 

0214 

TABPNT 

009B 

TAB2 

10D5 

TAB4 

10EF 

TABS 

10FA 

TAB6 

1110 

TAB8 

1118 

TDELAY 

1405 

TEHP 

0040 

TFORCR 

09A4 

TF0RC2 

09B1 

TF0RC3 

09B2 . 

TINCH 

020C 

ThPCHR 

0082 

TOFCH 

00B8 

TOGGLE 

095B 

TONCH 

00B7 

TOP 

099D 

TOUCH 

020F 

TRGLIN 

0093 

TSTEMP 

08A8 

TSTEND 

0663 

TSTEN2 

0669 

TSTMSL 

09B5 

TSTMS2 

09BB 

TSTMS4 

09C6 

TSTMS5 

09CB 

TSTNUM 

0838 

TSTNU2 

083E 

TSTOVR 

0821 

TSTOV2 

0829 

UPONE 

080F 

UPONE1 

0813 

UP0NE2 

0819 

VERFLG 

006B 

VERLIN 

083F 

VERLI1 

0849 

VERLI2 

0872 

VERL12 

084C 

VERL15 

085C 
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SI 13 OCAO 27 F2 A7 00 08 81 

SI 13 OCBO 59 27 08 CE OD A3 

SI 13 OCCO 15 BD 08 OF 96 73 

SI 13 OCDO DF 58 DE 5A 20 11 

SI 13 OCEO 73 27 02 DE 99 DF 

SI 13 OCFO 5C 09 20 F5 97 8E 

SI 13 ODOO BD 07 FO 96 7E 26 

SI 13 0D10 7E OB ID DF 4A 7F 

SI 13 OD20 OD BD 07 FO DF 40 

SI 13 0D30 7E 08 A2 DF 4A 96 

SI 13 0D40 7E OA D7 DE 5A 9C 

SI 13 OD50 DF 5A DE 58 A7 00 

SI 13 OD60 03 5D 27 18 09 7D 

SI 13 OD70 93 DE 42 4D 26 01 

SI 13 0D80 41 52 47 45 54 20 

SI 13 OD90 44 21 OD OA 00 00 

SI 13 ODAO 3F 20 04 4E 4F 20 

SI 13 ODBO 54 45 44 04 42 4F 

SI 13 ODCO 4C 45 20 52 45 41 

SI 13 ODDO BD 07 38 BD 06 63 

SI 13 ODEO 85 BD 05 FA 5F A6 

SI 13 ODFO 08 5C 20 FI DF 66 

SI 13 OEOO DE 4A 08 08 08 DF 

SI 13 0E10 7C 00 85 BD OF 14 

SI 13 0E20 07 96 7B 26 03 7E 

SI 13 0E30 88 BD 06 3B 7F 00 

SI 13 OE40 10 7F 00 79 DE 64 

SI 13 0E50 DF 96 90 97 62 96 

SI 13 0E60 78 27 OE 96 77 26 

SI 13 0E70 DO 7C 00 79 DE 68 

SI 13 0E80 DF 58 D6 7B 27 10 

SI 13 0E90 FA DF 5A BD OD 43 

SI 13 OEAO 5C DF 58 BD OC 08 

SI 13 OEBO 5C A7 00 08 DF 5C 


97 26 03 BD 07 A3 DF 58 96 C7 
7F 00 92 20 1C 96 7D 26 18 IE 
OD 96 7F 27 03 7F 00 92 86 OA 
7C BD 06 6A 96 84 27 04 DE 24 
04 4E CE 00 90 BD 08 D4 7F 7D 
7D CE 00 BB BD 04 99 27 E3 45 
04 BB 20 FO A7 00 CE 00 BB 52 
40 96 8E 80 03 97 8E 08 DF 3A 
00 73 26 1A 7C 00 83 D6 90 80 
4F 97 7C 97 92 BD 06 BO CE 9C 
7D 00 84 27 06 DE 4A DF 48 55 
8A 8D 3E DE 40 DF 4A BD 06 36 
44 A6 00 08 DF 44 DE 40 A7 97 
EE BD 12 85 96 84 26 AO 7E 86 
4C 49 4E 45 53 20 52 45 4E 29 
04 7F 00 89 DE 58 DF 40 9C DF 
99 DF 58 D6 8D 96 8E 26 03 AB 
26 08 7D 00 8C 26 04 DF 42 8C 
DF 42 DE 4A 08 DF 4A DE 93 5C 
01 5A 4A 26 D7 20 D2 CE OC 25 
7E 03 8A DF 99 DF 5A 96 89 OF 
40 27 OC 09 A6 00 DF 58 DE 04 
4E 4F 54 20 45 4E 4F 55 47 92 
7C 00 81 DE 44 BD 04 E9 BD 31 
BD 04 83 CE 00 BB BD 04 99 58 

26 F4 CE 00 BB BD 04 92 81 73 
04 83 20 60 DE 4A 96 8C 27 F5 
02 DE 99 DF 5A DE 93 DF 48 BD 
58 DF 48 DE 93 BD 08 OF 96 37 
4F 5F 9C 58 27 07 4C 26 01 71 
8D 8D 49 96 81 27 ID DE 48 96 

96 72 27 08 BD 07 A3 DF 4A FE 
7D 7E OA EA DE 48 9C 99 26 11 
OD B4 BD 04 83 DE 40 DF 48 C7 

97 8E 4F 97 7D 97 8D DE 44 78 

27 35 9C 99 27 OE A6 00 08 AO 
DF 58 20 E8 D6 8D 96 8E 26 85 
8C 26 09 DF 42 DE 93 09 DF 25 
4A 26 EA 20 E5 DF 99 39 54 8A 
4F 54 20 52 45 41 43 48 45 13 
00 59 4F 55 20 53 55 52 45 77 
49 4E 45 53 20 44 45 4C 45 6A 
54 4F 4D 20 4F 46 20 46 49 15 
48 45 44 04 BD 08 A8 DE 44 EF 
03 5D 27 03 7E OF 04 7C 00 2F 
BD 06 63 27 08 91 95 27 04 13 
86 BD 06 63 27 01 08 DF 44 5F 
BD OF 07 7F 00 85 BD OA 48 75 
00 6D DE 6E DF 68 96 78 27 39 
04 DE 4A 9C 93 26 03 7C 00 FO 
DE 64 BD 06 5A BD 05 B8 20 37 
06 5A BD 06 4F 22 7A BD 05 C7 
97 63 5D 26 6C 5C D7 87 96 30 
BD OA 87 DE 5C 08 DF 64 20 A1 
04 86 01 97 78 DF 6E DE 5C IB 
00 8D D7 8E 27 04 08 5A 20 81 
86 27 23 7F 00 8D D7 8E DE 19 
8E DE 50 08 A6 00 DF 40 DE 9D 
64 DE 40 5A 26 ED 96 77 27 E6 


9C 

05 

27 

00 

BD 

97 

BD 

26 

7D 

OE 

40 

03 

DE 

26 

20 

44 

DE 

27 

OE 

26 

6C 

9C 

39 

04 

7F 

OD 

BD 

27 

DF 

5A 

D7 

2C 

00 

CE 

82 

58 

08 

00 

5A 

4E 

00 

4C 

54 

43 

27 

00 

D7 

64 

7F 

OF 

79 

BD 

91 

OA 

27 

7F 

D6 

D6 

DF 




SI 13 OECO 1C DE 5C 
SI 13 OEDO 01 97 78 
SI 13 OEEO 79 27 03 
SI 13 OEFO BD 06 C3 
SI 13 OFOO 64 7E OE 
SI 13 0F10 7B 97 71 
SI 13 0F20 39 BD 08 
SI 13 0F30 OD 27 12 
SI 13 0F40 00 81 OD 
SI 13 0F50 D2 20 03 
SI 13 0F60 E4 81 OD 
SI 13 0F70 BB DF 44 
SI 13 0F80 08 DF 44 
SI 13 0F90 27 OB 91 
SI 13 OFAO 21 4F 97 
SI 13 OFBO DE 40 DF 
SI 13 OFCO 20 BC DE 
SI 13 OFDO 41 59 20 
SI 13 OFEO 5A DE 4A 
SI 13 OFFO 7E 08 A2 
SI 13 1000 27 1A 7F 
SI 13 1010 96 8C 97 
SI 13 1020 07 E6 08 
SI 13 1030 00 8C 26 
SI 13 1040 DE 4A BD 
SI 13 1050 26 01 5C 
SI 13 1060 83 7F 00 
SI 13 1070 OC 08 DE 
SI 13 1080 DF 40 BD 
SI 13 1090 18 BD 07 
SI 13 10A0 48 96 80 
SI 13 10B0 08 OF 20 
SI 13 10C0 41 50 53 
SI 13 10D0 CE 00 9D 
SI 13 10E0 2F BD 07 
SI 13 10F0 07 55 DF 
SI 13 1100 26 F8 DE 
SI 13 1110 4F DE 9B 
SI 13 1120 DE 44 BD 
SI 13 1130 E7 BD 07 
SI 13 1140 2A 33 26 
SI 13 1150 C6 08 BD 
SI 13 1160 33 5C DE 
SI 13 1170 20 05 96 
SI 13 1180 BD 04 92 
SI 13 1190 38 08 DF 
SI 13 11A0 DF 5E DE 
SI 13 11B0 01 27 OA 
SI 13 11C0 DF 44 DE 
SI 13 1IDO 92 DF 44 
SI 13 11E0 CE 00 B3 
SI 13 11F0 44 BD 04 
SI 13 1200 4F 36 20 
SI 13 1210 29 26 24 
SI 13 1220 07 4D 26 
SI 13 1230 86 23 A7 
SI 13 1240 39 54 41 
SI 13 1250 4C 00 11 
SI 13 1260 44 BD 04 


DF 64 7E OE 44 7F 00 
DF 6E 96 87 26 04 96 
BD 08 3F 96 88 27 06 
DF 4A 9C 93 26 03 7C 
31 7E 04 41 DE 4E DF 
39 DE 52 DF 4E DE 54 
A8 86 20 97 95 7F 00 
BD 07 3B 5D 27 03 7E 

26 2C DE 4A BD 08 AF 
CE OF CA BD 04 83 CE 

27 07 A7 00 BD 04 BB 
C6 OD DE 4A 08 08 08 
81 OD 27 3B DE 40 7D 
95 27 02 A7 00 08 DF 
8D DE 44 4C El 00 27 
58 86 01 97 8C BD OC 
4A BD 08 3F 7E 03 8A 
04 7C 00 80 8D 1A 96 
DF 58 DE 48 DF 93 BD 
DE 44 7C 00 76 7C 00 
00 75 7F 00 76 9C 97 
8B 7F 00 8C BD 08 21 
DF 58 DE 44 BD 04 E9 
08 DE 4A DF 40 DE 93 
07 E6 08 DF 93 DE 40 
9C 93 27 10 9C 58 26 
6C 7E 03 8A 97 8E D7 
5A DF 48 DE 58 DF 42 
OC 64 DE 42 7F 00 72 
A3 7C 00 83 BD 06 BO 
27 01 39 7E 08 A2 BD 
EO 53 4F 55 52 43 45 
20 44 45 53 54 49 4E 
DF 9B DE 44 BD 04 92 
3B Cl 01 27 07 22 2E 
44 5F BD 08 38 27 16 
9B E7 00 08 DF 9B 8C 
A7 00 7E 09 30 7E 04 
04 92 BD 06 63 27 1C 
55 DF 44 BD 08 38 27 
F8 D7 96 BD 07 A3 BD 
08 CD 5A 26 FA BD 08 
9B El 00 26 OA 86 2D 

91 BD 09 17 D1 96 26 
BD 06 63 27 OA BD 07 
44 CE 00 01 20 07 BD 
44 BD 04 92 BD 06 63 
22 14 08 20 EC CE 01 
90 DF 60 7E 09 30 7E 
DF 40 CE 12 41 7E 04 
20 08 CE 00 B5 20 03 

92 81 3D 26 3F 8D 40 
OF BD 07 3B 5D 26 2D 
08 DF 44 BD 09 A4 32 
OE 86 20 20 OA 8C 00 
00 7E 09 30 7E 04 71 
42 00 11 DB 46 49 4C 
E5 4C 49 4E 4F 00 11 
E9 DE 4A 8A 01 97 8A 


78 DE 68 27 04 86 C7 
88 26 27 DE 4A 96 41 
7F 00 79 7E 08 A2 EC 
00 88 08 08 08 DF EC 
52 DE 50 DF 54 96 A5 
DF 50 96 71 97 7B 3A 
8C DE 44 A6 00 81 FI 
04 71 97 95 08 A6 14 
96 6A 26 05 CE OF 19 
00 BB BD 04 99 27 A3 
20 FO A7 00 CE 00 35 
DF 40 DE 44 A6 00 95 
00 8C 26 08 El 00 OC 

40 20 DF 96 8C 26 B7 
03 08 20 F8 97 8E EB 
08 C6 OD DE 44 09 5F 
20 4F 56 45 52 4C 62 
8B 97 8C DE 93 DF 18 
OD 43 DE 93 DF 48 07 
75 BD 04 E9 9C 99 El 

26 04 9C 4A 27 04 44 

27 03 7E 04 5F BD CF 
BD 08 21 26 ED 7D 4E 
20 06 DE 93 DF 40 84 
DF 4A 4F 5F 08 4C 07 
F3 CE 10 B4 BD 04 43 
8D 86 01 97 8C BD 13 
DE 93 DF 58 DE 4A D2 
BD 07 FO 96 72 27 1C 
DE 48 BD 07 FO DF A2 
06 98 4F 97 92 BD C5 
20 4F 56 45 52 4C 9C 

41 54 49 4F 4E 04 D2 
DF 44 BD 06 63 27 42 
08 DF 44 20 E6 BD AO 
5C 37 BD 08 2A 33 IF 
00 B1 27 02 20 C5 90 
71 CE 00 9D DF 9B CD 
BD 07 3B Cl 01 26 F6 
40 5F 5C 37 BD 08 6D 
04 4E 96 6A 27 08 OE 
CD 5F 37 BD 06 7C 4A 
BD 02 09 08 DF 9B 65 
El 7E 09 30 DE 44 FB 
3B Cl 01 27 OA 22 9D 
07 55 DF 44 DE 90 48 
27 OC BD 07 3B Cl 70 
36 20 07 BD 07 55 6A 
04 41 DE 44 BD 04 EE 
00 CE 00 B2 20 OD E7 
CE 00 B4 DF 40 DE 2D 
26 3B 8D 3C 26 04 10 
81 OD 27 29 36 8D D6 
DE 40 8C 00 B3 26 OD 
B4 26 05 4D 26 02 82 
08 BD 04 92 81 27 AD 
4C 00 11 EO 45 4F F2 
EA 00 BD 08 A8 DE DO 
DF 48 9C 93 26 03 3D 












- 
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SI 

13 

1270 

7F 

00 

8A 

SI 

13 

1280 

20 

E8 

7E 

SI 

13 

1290 

E6 

00 

27 

SI 

13 

12A0 

08 

08 

08 

SI 

13 

12B0 

F2 

DF 

40 

SI 

13 

12C0 

FA 

97 

8E 

SI 

13 

12D0 

00 

08 

5A 

SI 

13 

12E0 

DE 

44 

BD 

SI 

13 

12F0 

5D 

26 

F7 

SI 

13 

1300 

BD 

08 

38 

SI 

13 

1310 

BD 

OF 

07 

SI 

13 

1320 

8A 

DE 

4A 

SI 

13 

1330 

06 

09 

BD 

SI 

13 

1340 

03 

08 

20 

SI 

13 

1350 

00 

08 

5A 

SI 

13 
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04 

08 

5C 

SI 

13 

1370 

96 

7B 

27 

SI 

13 

1380 

40 

BD 

OC 

SI 

13 

1390 

07 

BD 

06 

SI 

13 

13A0 

DE 

97 

DF 

SI 

13 

13B0 

DE 

44 

BD 

SI 

13 

13C0 

4A 

DF 

58 

SI 

13 

13D0 

02 

20 

D7 

SI 

13 

13E0 

08 

08 

08 

SI 

13 

13F0 

02 

OF 

08 

SI 

13 

1400 

96 

BA 

BD 

SI 

13 

1410 

20 

F5 

39 

SI 

13 

1420 

BD 

02 

OF 

SI 

13 

1430 

02 

OF 

8D 

SI 

13 

1440 

07 

FO 

BD 

SI 

13 
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81 

OD 

27 

SI 

13 

1460 

8D 

ID 

20 

SI 

13 

1470 

02 

OF 

9C 

SI 

13 

1480 

02 

12 

27 

SI 

05 

1490 

D3 

OD 

76 

SI 

S9 

05 

A048 

02 

00 

10 


8D 10 96 8A 27 09 DE 
08 A2 96 B2 91 B3 27 
48 5F D7 8D DE 4A 9C 
5C A6 00 81 0D 27 32 
DE 9B El 00 24 IE 86 
DE 40 DF 58 BD OC 08 

26 FA 20 AE 08 A6 00 
04 92 BD 06 63 26 03 
BD 05 FA BD 07 3B Cl 

27 OB 4F 4C 36 BD 08 
DE 44 BD 04 E9 BD OF 
9C 93 26 03 7F 00 8A 
07 E6 20 37 16 5A 27 
F4 DF 58 D7 8E 37 BD 
26 FA 20 17 DF 58 DF 
20 F6 D7 8E DF 5A BD 
12 97 8E BD OC 08 DE 
64 DE 5A 5F BD 07 F6 
C3 DF 4A 20 8B DF 48 
58 DE 99 DF 5A 8D 29 
04 E9 96 8C 26 OC BD 
20 OA DF 58 DE 4A BD 
96 B9 BD 02 OF 8D 2B 
A6 00 81 OD 27 06 BD 
20 E7 86 1A BD 02 OF 
02 OF 96 B6 27 09 CE 
BD 09 A4 96 B9 BD 02 
5A 26 F9 8D D8 20 A7 
D1 BD 07 A3 DE 99 DF 
06 98 DE 99 8D 35 8D 
OC 81 1A 27 OC 81 IF 
E3 5F BD 07 F6 DF 99 
40 27 05 DE 40 BD 06 
04 A7 00 08 39 BD 02 


4A BD 06 C3 DF 4A 9D 
51 CE 00 9D DF 9B 41 
99 26 03 7E 03 8A A1 
91 B2 27 03 08 20 A4 
FF 4C 5C El 00 26 49 
D6 8E 5C 96 B3 A7 25 
26 D9 39 BD 08 A8 67 
7E 04 71 BD 07 3B 44 
01 26 13 BD 07 55 A1 
2A 32 26 F8 97 7A 89 
14 7F 00 8D 7C 00 C2 
08 08 08 96 7A 26 58 
1C A6 00 81 OD 27 8B 
OC 08 33 86 20 A7 56 
40 A6 00 81 OD 27 IF 
OD 43 DE 40 DF 58 FB 
50 DF 58 DE 4E DF B9 
BD 08 3F 96 8A 27 50 
7E 08 A2 BD 09 A4 2F 
7E 09 30 BD 08 A8 03 
07 E6 08 DF 5A DE 40 
07 E6 08 DF 5A 8D 97 
DE 58 9C 5A 27 15 D3 
02 OF 08 20 F4 BD D9 
CE FF FF 09 26 FD 63 
FF FF 09 26 FD 4A FC 
OF 8D E8 C6 28 4F 41 
BD 09 A4 96 B7 BD D1 
40 9C 97 27 08 BD ID 
33 8D 31 BD 02 OC C4 
23 FI 8D 21 20 ED 8A 
7C 00 83 96 B8 BD 30 
BO 7E 09 90 4F BC 9C 
OC 81 1A 26 F9 20 8C 
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TSC FLOATING POINT PACKAGE 
VER 2. 3 


COPYRIGHT <C> 1976 BY 

TECHNICAL SYSTEMS CONSULTANTS 
BOX 2574 W. LAFAYETTE IN. 47906 

THE TSC FLOATING POINT PACKAGE PROVIDES 
THE BASIC ARITHMETIC FUNCTIONS ADD, SUBTRACT, 
MULTIPLY, AND DIVIDE. THE NORMALIZED 
FORM OF THE X AND Y OPERANDS IS A MIXED 
FORMAT. THE MANTISSA IS SIGN PLUS MAGNI¬ 
TUDE PACKED BCD NOTATION. THIS IMPLIES 
THAT THE SIGN BYTE <XSIGN OR YSIGN> IS 
EITHER ALL ZEROS FOR POSITIVE OR ALL ONES 
FOR NEGATIVE. THE MANTISSA ITSELF <XOP OR 
YOP> IS VIEWED AS BEING A 9 DIGIT FRAC¬ 
TIONAL NUMBER WITH A ZERO TO THE LEFT OF 
THE DECIMAL POINT CIN THE UPPER HALF OF THE 
MOST SIGNIFICANT BYTE OF XOP OR YOP>. THIS 
IS DONE TO SIMPLIFY THE ARITHMETIC AND NOR¬ 
MALIZATION OPERATIONS. PACKED BCD IMPLIES 
THAT THERE ARE 2 BCD DIGITS PER BYTE. 

THE EXPONENT IS AN 8 BIT 2'S COMPLEMENT 
NUMBER WITH A RANGE OF +128 TO -127. HOW¬ 
EVER, BECAUSE OF THE WAY IN WHICH THE 
MULTIPLY, DIVIDE, AND NORMALIZE OPERATIONS 
ARE DONE THE PRACTICAL RANGE IS SLIGHTLY 
SMALLER. ONE CAN TOTALLY AVOID DEALING 
WITH THIS PROBLEM BY RESTRICTING THE EX¬ 
PONENT RANGE TO +99 AND -99. THIS SHOULD 
NOT PROVE TO BE AN UNREASONABLE CONSTRAINT. 

THE RESULT OF ALL ARITHMETIC OPERATIONS 
IS RETURNED IN NORMALIZED FORM WITH THE SIGN 
IN RSIGN, THE MANTISSA IN FPAC, AND THE 
EXPONENT IN ACEXP. 

EXAMPLES OF THE NORMALIZED FORM ARE GIVEN 
BELOW: 


NUMBER 

SIGN 

MANTISSA 

EXPONENT 


+ 100 

00 

0100000000 

03 


-1163. 12 

FF 

0116312000 

04 


+0. 125 

00 

0125000000 

00 


+0. 000213 

00 

0213000000 

FD 


-0. 000213 

FF 

0213000000 

FD 



THIS PACKAGE CONTAINS SUBOUTINES ONLY. 
AN EXTERNAL DRIVER PROGRAM MUST BE USED TO 
EXERCISE THEM. THE ROUTINE ADDRESSES 
ARE GIVEN BELOW: 


OPERATION 

ADD 

SUBTRACT 

MULTIPLY 


NAME 

FPADD 

FPSUB 

FPMUL 


ADDRESS 

0103 

0100 

0180 
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* DIVIDE FPDIV 0194 

* 


* 


+ STORAGE SPACE 


0020 


ORG 

$20 

0020 

RSIGN 

RMB 

1 

0021 

FPAC 

RMB 

5 

0026 

ACEXP 

RMB 

1 

0027 

FPMQ 

RMB 

5 

002C 

XSIGN 

RMB 

1 

002D 

XOP 

RMB 

5 

0032 

XEX 

RMB 

1 

0033 

YSIGN 

RMB 

1 

0034 

YOP 

RMB 

5 

0039 

YEX 

RMB 

1 

003A 

OVFL 

RMB 

1 

003B 

ATEMP 

RMB 

1 

003C 

ATEMP2 

RMB 

1 

003D 

BTEMP 

RMB 

1 

003E 

BTEMP2 

RMB 

1 

003F 

XTEMP 

RMB 

2 

0041 

XTEMP2 

RMB 

2 


* 



0005 

BC 

EQU 

05 


♦ 



0100 


ORG 

$100 


* 


* 


RESULT SIGN BVTE 
FLOATING POINT ACCUMULATOR 
ACCUMULATOR EXPONENT 
FLOATING POINT MQ REGISTER 
X SIGN BYTE 
X OPERAND MANTISSA 
X OPERAND EXPONENT 

Y SIGN BVTE 

Y OPERAND MANTISSA 

Y OPERAND EXPONENT 


TEMPORARY X STORAGE 


OPERAND BYTE COUNT 


♦FPSUB 

* FLOATING POINT SUBTRACT 

* SUBTRACTS VOP*VEX FROM XOP*XEX 

0100 73 00 33 FPSUB COM YSIGN CHANGE SIGN 

* GO INTO FPADD 


* 


♦FPADD 

♦ FLOATING POINT ADD ROUTINE 

♦ ADDS YOP+YEX TO XOP*XEX 


0103 

8D 

71 

FPADD 

BSP. 

SETSIN 

SET SIGN HOLDER 

0105 

BD 

02 

CB 

JSR 

EXPADJ 

ADJUST EXPONENTS 

0108 

CE 

00 

21 

LDX 

#FPAC 

MOVE XOP TO FPAC 

010B 

BD 

02 

5B 

JSR 

XOPTOX 

010E 

CE 

00 

21 

LDX 

#FPAC 

CHECK XOP FOR =0 

0111 

BD 

02 

75 

JSR 

ZCHK 

0114 

27 

ID 


BEQ 

FPAD01 


0116 

CE 

00 

34 

LDX 

#YQP 

CHECK YOP FOR =0 

0119 

BD 

02 

75 

JSR 

ZCHK 

011C 

27 

19 


BEG! 

FPADD1 


011E 

96 

20 


LDA A 

RSIGN 


0120 

2A 

15 


BPL 

FPADD1 

USE EITHER SIGN 

0122 

BD 

01 

C7 

JSR 

BCDSUB 

SUBTRACT 

0125 

25 

10 


BCS 

FPADD1 

USE X SIGN 

0127 

CE 

00 

34 

LDX 

#YOP 

POINT TO YOP 
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012A 

BD 

02 

AB 


JSR 


LTC 

RECOMPLEMENT VOP 

012D 

CE 

00 

2D 


LDX 


#XOP 


0130 

BD 

02 

AB 


JSR 


LTC 

COMPLEMENT XOP 

0133 

96 

33 


FPRD01 

LDA 

A 

VSIGN 

USE V SIGN 

0135 

20 

02 



BRA 


FPADD2 


0137 

96 

2C 


FPADD1 

LDA 

A 

XSIGN 


0139 

97 

20 


FPRDD2 

STA 

A 

RSIGN 


013B 

CE 

00 

21 

FPAD21 

LDX 


#FPAC 


013E 

BD 

02 

5B 


JSR 


XOPTOX 

MOVE XOP TO FPAC 

0141 

BD 

01 

CD 


JSR 


BCDADD 

ADD 

0144 

CE 

00 

27 


LDX 


#FPMQ 


0147 

BD 

02 

30 


JSR 


CLROP 

CLEAR THE MQ 





♦ GO INTO NORM 




* 


♦NORM 






♦ NORMALIZE FLOATING POINT RESULTS 






* MQ MU: 

ST CONTAIN VALID 

DATA 


014A 

CE 

00 

21 

NORM 

LDX 

#FPAC 



014D 

BD 

02 

75 


JSR 

ZCHK 

CHECK FOR 

ZERO 

0150 

26 

07 



BNE 

N0RM2 



0152 

7F 

00 

26 


CLR 

ACEXP 



0155 

7F 

00 

20 


CLR 

RSIGN 



0158 

39 




RTS 




0159 

CE 

00 

21 

N0RM2 

LDX 

#FPAC 



015C 

A6 

00 



LDA A 

0/ X 



015E 

27 

0C 



BEQ 

N0RM3 



0160 

84 

F0 



AND A 

#$F0 



0162 

27 

IB 



BEQ 

SETSI1 



0164 

7C 

00 

26 


INC 

ACEXP 



0167 

29 

5R 



BVS 

FPDIV3 

CHECK FOR 

OVERFLOW 

0169 

7E 

02 

2F 


JMP 

EL4RR 



016C 

BD 

02 

45 

N0RM3 

JSR 

EL4RL 



016F 

7A 

00 

26 


DEC 

ACEXP 



0172 

29 

4F 



BVS 

FPDIV3 

CHECK FOR 

OVERFLOW 

0174 

20 

E3 


♦ 

♦SETSIN 

BRA 

NORM2 







♦ CALCULATE XS 

IGN. XOR. YSIGN 






♦ STORE 

IN RSIGN 



0176 

96 

2C 


SETSIN 

LDA A 

XSIGN 



0178 

98 

33 



EOR A 

VSIGN 



017A 

97 

20 



STA A 

RSIGN 



017C 

7F 

00 

3A 


CLR 

OVFL 



017F 

39 



SETSI1 

♦ 

♦ 

♦FPMUL 

RTS 








♦ FLOATING POINT MULTIPLY ROUTINE 






♦ MULTIPLIES XOP*XEX BY 

YOP*YEX 






* TRUNCATES PRODUCT TO 

BC*2-1 BCD DIGITS 

0180 

8D 

F4 


FPMUL 

BSR 

SETSIN 

STORE OPERAND SIGNS 

0182 

96 

32 



LDA A 

XEX 



0184 

9B 

39 



ADD A 

YEX 

CALCULATE 

EXPONENT 

0186 

29 

3B 



BVS 

FPDIV3 

CHECK FOR 

OVERFLOW 


PAGE 
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0188 

97 

26 



STfi 

A 

ACEXP 

SAVE EXPONENT 

018A 

CE 

00 

27 


LDX 


#FPMQ 


018D 

BD 

02 

5B 


JSR 


XOPTOX 

MOVE XOP TO MQ 

0190 

8D 

50 



BSR 


BCDMUL 

MULTIPLY 

0192 

20 

B6 



BRA 


NORM 






•T* 

♦FPDIV 









♦FLOATING POINT DIVIDE ROUTINE 





♦DIVIDES XOP^XEX BV YOP^YEX 





♦TRUNCATES THE 

REMAINDER 


0194 

8D 

E0 


FPDIV 

BSR 


SETSIN 

STORE SIGNS 

0196 

96 

32 



LDA 

A 

XEX 


0198 

90 

39 



SUB 

A 

VEX 

CALCULATE EXPONENT 

019A 

29 

27 



BVS 


FPDIV3 

CHECK FOR OVERFLOW 

019C 

CE 

00 

21 


LDX 


#FPAC 


019F 

BD 

02 

5B 


JSR 


XOPTOX 

MOVE XOP TO THE AC 

01A2 

CE 

00 

27 


LDX 


#FPMQ 


01A5 

BD 

02 

80 


JSR 


CLROP 

CLEAR THE MQ 

01A8 

BD 

02 

2F 


JSR 


EL4RR 

SHIFT ACMQ TO AVOID OVFL 

01AB 

4C 




INC 

A 


COMPENSATE EXPONENT 

01AC 

29 

15 



BVS 


FPDIV3 

CHECK FOR OVERFLOW 

01AE 

97 

26 



STA 

A 

ACEXP 

STORE EXPONENT 

01B0 

8D 

4B 



BSR 


BCDDIV 

DIVIDE 

01B2 

25 

0F 



BCS 


FPDIV3 

CHECK FOR OVERFLOW 

01B4 

C6 

05 



LDA 

B 

#BC 


01B6 

CE 

00 

21 


LDX 


#FPAC 


01B9 

A6 

06 


FPDIV1 

LDA 

A 

BC+1, X 


01BB 

A7 

00 



STA 

A 

Qj X 

MOVE QUOTIENT TO THE AC 

01BD 

08 




INX 




01BE 

5A 




DEC 

B 



01BF 

26 

F8 



BNE 


FPDIV1 


01C1 

20 

87 



BRA 


NORM 


01C3 

73 

00 

3A 

FPDIV3 

COM 


OVFL 


01C6 

39 



a. 

RTS 








T- 

♦BCDSUB 









♦ SUBTRACTS 

VOP FROM FF’AC 

01C7 

CE 

00 

34 

BCDSUB 

LDX 


#YOP 


01CA 

BD 

02 

AB 


JSR 


LTC 

TAKE TENS COMP 





♦ GO 

INTO BCDADD 



* 


♦BCDADD 





♦ ADDS 

YOP TO 

FPAC 





♦ USES 

ZERO 

INITIAL CARRY 

01CD 

8D 

59 

BCDADD 

BSR 


SAVREG 

SAVE REGISTER CONTENTS 

01CF 

CE 

00 21 


LDX 


#FPAC 


01D2 

0C 



CLC 




01D3 

C6 

05 


LDA 

B 

#BC 

SET COUNTER 

01D5 

A6 

04 

BCDAD1 

LDA 

A 

BC-1, X 


01D7 

A9 

17 


ADC 

A 

BC^4+3, X 


01D9 

19 



DAA 



ADJUST FOR BCD 

01DA 

A7 

04 


STA 

A 

BC-1, X 


01DC 

09 



DEX 




01DD 

5A 



DEC 

B 


ONCE DONE 
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01DE 26 F5 BNE BCDAD1 

01E0 20 40 BRR RSTREG RESTORE REGISTERS 

* 


♦BCDMUL 

+ MULTIPLIES FPMQ BV YOP 
* ANSWER IN FPRC AND FPMQ 


01E2 

CE 

00 

21 

BCDMUL 

LDX 


#FPAC 

01E5 

BD 

02 

80 


JSR 


CLROP CLEAR FPAC 

01E8 

C6 

09 



LDA 

B 

#BC*2-1 SET CTR 

01EA 

96 

2B 


BCDMU1 

LDA 

A 

FPMQ+BC-1 GET LS BYTE 

01EC 

84 

0F 



AND 

A 

#S0F MASK OFF LS BCD 

01EE 

27 

07 



BEQ 


BCDMU3 

01F0 

8D 

DB 


BCDMU2 

BSR 


BCDADD ADD IN OPERAND 

01F2 

7A 

00 

2B 


DEC 


FPMQ+BC-1 

01F5 

20 

F3 



BRA 


BCDMU1 

01F7 

8D 

36 


BCDMU3 

BSR 


EL4RR SHIFT ACMQ 1 BCD RIGHT 

01F9 

5A 




DEC 

B 


01FA 

26 

EE 



BNE 


BCDMU1 

01FC 

39 




RTS 




* 


*BCDDIV 

* DIVIDES FPAC AND FPMQ BV VOP 

* QUOTIENT RETURNED IN FPMQ, REMAINDER IN FPAC 

* CARRY RETURNED SET ON OVERFLOW 


01FD 

CE 

00 

34 

BCDDIV 

LDX 


#YOP 



0200 

8D 

73 



BSR 


2CHK . 



0202 

26 

02 



BNE 


BCDD15 

CHECK FOR DIV BY 

0 

0204 

0D 




SEC 





0205 

39 



BCDDI1 

RTS 





0206 

C6 

0A 


BCDD15 

LDA 

B 

#BC*2 



0208 

8D 

BD 



BSR 


BCDSUB 

SUBTRACT OPERAND 


020A 

24 

0C 



BCC 


BCDDI3 

CHECK FOR OVFL 


020C 

39 




RTS 





020D 

8D 

36 


BCDD16 

BSR 


EL4RL 

SHIFT ACMQ 1 BCD 

LEFT 

020F 

8D 

BC 


BCDDI2 

BSR 


BCDADD 

SUBTRACT OPERAND 


0211 

24 

05 



BCC 


BCDDI3 

IF NO CARRY, TOO 

SMALL 

0213 

7C 

00 

2B 


INC 


FPMQ+BC-1 

TALLY ONE 


0216 

20 

F7 



BRA 


BCDDI2 



0218 

8D 

AD 


BCDDI3 

BSR 


BCDSUB 

COMPENSATE REMAINDER 

021A 

BD 

02 

AB 


JSR 


LTC 

RECOMPLEMENT 


021D 

5A 




DEC 

B 


DEC LOOP CTR 


021E 

26 

ED 



BNE 


BCDD16 



0220 

0C 




CLC 





0221 

39 



* 

♦RSTREG 

RTS 









* RESTORE REGISTERS X,A, 

B 


0222 

96 

3B 


RSTREG 

LDA 

A 

ATEMP 



0224 

D6 

3D 



LDA 

B 

BTEMP 



0226 

DE 

3F 



LDX 


XTEMP 




* GO INTO SAVREG 

* 

+SAVREG 

* SAVE REGISTERS X,A,B 
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0228 

97 

3B 


SRVREG 

STfl 

A 

ATEMP 



022R 

07 

3D 



STA 

B 

BTEMP 



022C 

OF 

3F 



STX 


XTEMP 



022E 

39 




RTS 









+EL4RR 










* EXTRA 

LONG 4 

ROTATE 

RIGHT 






* ROTATES ACMQ 

RIGHT ONE BCD 


022F 

8D 

F7 


EL4RR 

BSR 


SAVREG 

SAVE PTRS 

0231 

86 

04 



LDA 

A 

#04 



0233 

CE 

00 

21 

EL4RR1 

LDX 


#FPAC 

POINT 

TO AC 

0236 

C6 

01 



LDA 

B 

#01 



0238 

0C 




CLC 





0239 

8D 

4E 



BSR 


LRR 

SHIFT 

AC 

023B 

CE 

00 

27 


LDX 


#FPMQ 

POINT 

TO MG! 

023E 

8D 

49 



BSR 


LRR 

SHIFT 

MQ 

0240 

4fl 




DEC 

A 




0241 

26 

F0 



BNE 


EL4RR1 



0243 

20 

DD 



BRA 


RSTREG 




* 


*EL4RL 






% EXTRA 

LONG 4 

ROTATE LEFT 





* ROTATES ACMQ 

LEFT ONE 

BCD DIGIT 

0245 

8D 

El 


EL4RL 

BSR 

SAVREG 


0247 

86 

04 



LDA A 

#04 

SET SHIFT COUNT 

0249 

CE 

00 

27 

EL4RL1 

LDX 

#FPMQ 


024C 

0C 




CLC 



024D 

C6 

01 



LDA B 

#01 


024F 

8D 

49 



BSR 

LRL 

SHIFT 

0251 

CE 

00 

21 


LDX 

#FPAC 


0254 

8D 

44 



BSR 

LRL 

SHIFT AC 

0256 

4A 




DEC A 



0257 

26 

F0 



BNE 

EL4RL1 


0259 

20 

C7 


EL4RL2 

•If 

BRA 

RSTREG 

RESTORE POINTERS 





+XOPTOX 








* MOVE 

XOP TO 

LOCN POINTED TO BY X 





* MODIFIES X 



025B 

8D 

CB 


XOPTOX 

BSR 

SAVREG 


025D 

CE 

00 

2D 


LDX 

#XOP 

POINT TO XOP 

0260 

C6 

05 



LDA B 

#BC 

SET CTR 

0262 

A6 

00 


XOPTOl 

LDA A 

0, X 


0264 

08 




INX 



0265 

DF 

41 



STX 

XTEMP2 

STORE PTR 

0267 

DE 

3F 



LDX 

XTEMP 

LOAD DEST PTR 

0269 

A7 

00 



STA A 

0F X 


026B 

08 




INX 



026C 

DF 

3F 



STX 

XTEMP 


026E 

DE 

41 



LDX 

XTEMP2 


0270 

5A 




DEC B 



0271 

26 

EF 



BNE 

XOPTOl 


0273 

20 

AD 



BRA 

RSTREG 



♦ 

*ZCHK 
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* CHECK A 5 BYTE BCD FOR =0 

* OPERAND POINTED TO BY X 

* MODIFIES B, X 


0275 

C6 

05 

2CHK 

LDA 

B 

#BC 

0277 

6D 

00 

2CHK1 

TST 


0/ X 

0279 

26 

04 


BNE 


2CHK2 

027B 

08 



INX 



027C 

5A 



DEC 

B 


027D 

26 

F8 


BNE 


2CHK1 

027F 

39 


2CHK2 

RTS 




* 


+CLROP 

* CLEAR 5 BYTE OPERAND POINTED TO BY X 

* MODIFIES B,X 


0280 

C6 

05 

CLROP 

LDA 

B 

#BC 

0282 

6F 

00 

CLROP1 

CLR 


0, X 

0284 

08 



INX 



0285 

5A 



DEC 

B 


0286 

26 

FA 


BNE 


CLROP1 

0288 

39 



RTS 






*LRR 

* LONG ROTATE RIGHT WITH CARRY 

* X POINTS TO THE MS BYTE 

* B CONTAINS AMOUNT OF SHIFT 


0289 

8D 

65 

LRR 

BSR 


SVRG2 

028B 

DE 

41 

LRR1 

LDX 


XTEMP2 

028D 

86 

05 


LDA 

A 

#BC 

028F 

66 

00 

LRR2 

ROR 


0, X 

0291 

08 



INX 



0292 

4A 



DEC 

A 


0293 

26 

FA 


BNE 


LRR2 

0295 

5A 



DEC 

B 


0296 

26 

F3 


BNE 


LRR1 

0298 

20 

5C 

LRR3 

BRA 


RSRG2 


* 


*LRL 

* LONG ROTATE LEFT WITH CARRY 

* X POINTS TO THE MS BYTE 

* B CONTAINS THE AMOUNT OF SHIFT 


029A 

8D 

54 

LRL 

BSR 


SVRG2 

029C 

DE 

41 

LRL1 

LDX 


XTEMP2 

029E 

86 

05 


LDA 

A 

#BC 

02A0 

69 

04 

LRL2 

ROL 


BC-1/ X 

02A2 

09 



DEX 



02A3 

4A 



DEC 

A 


02A4 

26 

FA 


BNE 


LRL2 

02A6 

5A 



DEC 

B 


02A7 

26 

F3 


BNE 


LRL1 

02A9 

20 

4B 


BRA 


RSRG2 


* 

*LTC 

* LONG TENS COMPLEMENT OF OPERAND 
>* POINTED TO BY X 
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02RB 

8D 

43 


LTC 

BSP 

SVRG2 


02RD 

C6 

05 



LDR B 

#BC 


02RF 

86 

99 


LTC'l 

LDR R 

4499 


02B1 

R0 

04 



SUB R 

BC-1, X 


02B3 

R7 

04 



STR fl 

BC-1, X 


02B5 

09 




DEX 



02B6 

5R 




DEC B 



02B7 

26 

F6 



BNE 

LTC1 


02B9 

0D 




SEC 



02BR 

C6 

05 



LDR B 

#BC 


02BC 

DE 

41 



LDX 

XTEMP2 


02BE 

86 

00 


LTC2 

LDR R 

#00 


02C0 

R9 

04 



RDC R 

BC-1, X 


02C2 

19 




DRR 



02C3 

R7 

04 



STR fl 

BC-1, X 


02C5 

09 




DEX 



02C6 

5R 




DEC B 



02C7 

26 

F5 



BNE 

LTC2 


02C9 

20 

2B 


LTC4 

BRR 

RSRG2 






+EXPRDJ 








* RDJUS 

TS EXPONENTS FOR 

ADD AND SUBTRACT 





+ OPERATES ON 

XOP AND VOP 





+ MODIFIES fl, B, X 


02CB 

96 

32 


EXPRDJ 

LDR R 

XEX 

LORD X EXPONENT 

02CD 

91 

39 



CMP R 

VEX 

COMPARE WITH V EXP 

02CF 

27 

1C 



BEQ 

EXP3 

EXPONENTS SRME? 

02D1 

2E 

07 



BGT 

EXP1 

XEXDVEX? 

02D3 

CE 

00 

2D 


LDX 

#XOP 

POINT TO XOP 

02D6 

96 

39 



LDR R 

VEX 

GET VEX 

02D8 

20 

03 



BRR 

EXP2 


02DR 

CE 

00 

34 

EXP1 

LDX 

#VOP 

POINT TO VOP 

02DD 

C6 

04 


EXP2 

LDR B 

#04 


02DF 

8D 

R8 



BSR 

LRR 


02E1 

E6 

00 



LDR B 

0, X 


02E3 

C4 

0F 



AND B 

#*0F 

MASK OFF GOOD BCD 

02E5 

E7 

00 



STR B 

0, X 

SHIFTED 1 BCD RIGHT 

02E7 

6C 

05 



INC 

BC, X 

INCREMENT EXPONENT 

02E9 

R1 

05 



CMP R 

BC, X 

SRME VET? 

02EB 

26 

F0 



BNE 

EXP2 

IF NOT, DO AGAIN 

02ED 

97 

£6 


EXP3 

STR R 

RCEXP 

STORE NEW EXPONENT 

02EF 

39 




RTS 


DONE 


* 


+SVRG2 





* LEVEL2 REGI 

STER SAVE 

02F0 

DF 

41 

SVRG2 STX 

XTEMP2 

02F2 

97 

3C 

STR R 

RTEMP2 

02F4 

D7 

3E 

STR B 

BTEMP2 




* GO INTO RS 

RG2 




*RSRG£ 


02F6 

DE 

41 

* LEVEL2 REGISTER RESTORE 
RSRG2 LDX XTEMP2 

02F8 

96 

3C 

LDR R RTEMP2 


PAGE 
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02FR D6 3E LDA B BTEMP2 

02FC 39 RTS 


END 


SYMBOL TABLE: 


RCEXP 

0026 

RTEMP 

003B 

ATEMP2 

003C 

BC 

0005 

BCDRD1 

01D5 

BCDRDD 

01CD 

BCDD15 

0206 

BCDD16 

020D 

BCDDI1 

0205 

BCDDI2 

020F 

BCDDI3 

0218 

BCDDIV 

01FD 

BCDMU1 

01ER 

BCDMU2 

01F0 

BCDMU3 

01F7 

BCDMUL 

01E2 

BCDSUB 

01C7 

BTEMP 

003D 

BTEMP2 

003E 

CLROP 

0280 

CLROP1 

0282 

EL4RL 

0245 

EL4RL1 

0249 

EL4RL2 

0259 

EL4RR 

022F 

EL4RR1 

0233 

EXP1 

02DR 

EXP2 

02DD 

EXP3 

02ED 

EXPRDJ 

02CB 

FPRC 

0021 

FPAD01 

0133 

FPRD21 

013B 

FPADD 

0103 

FPRDD1 

0137 

FPRDD2 

0139 

FPDIV 

0194 

FPDIV1 

01B9 

FPDIV3 

01C3 

FPMQ 

0027 

FPMUL 

0180 

FPSUB 

0100 

LRL 

029R 

LRL1 

029C 

LRL2 

02R0 

LRR 

0289 

LRR1 

028B 

LRR2 

023F 

LRR3 

0298 

LTC 

02AB 

LTC1 

02RF 

LTC2 

02BE 

LTC4 

02C9 

NORM 

014R 

N0RM2 

0159 

N0RM3 

016C 

OVFL 

003R 

RSIGN 

0020 

RSRG2 

02F6 

RSTREG 

0222 

SRVREG 

0228 

SETSI1 

017F 

SETSIN 

0176 

SVRG2 

02F0 

XEX 

0032 

XOP 

002D 

XOPTOl 

0262 

XOPTOX 

025B 

XSIGN 

002C 

XTEMP 

003F 

XTEMP2 

0041 

YEX 

0039 

VQP 

0034 

YSIGN 

0033 

ZCHK 

0275 

ZCHK1 

0277 

ZCHK2 

027F 








SI 1301007300338D71BD02CBCEC021BDG25BCEOOE6 
SI13011021BD0275271DCE0034BDO2752719962016 
Si 1301202A15BD01C7251OCE0034BD02ABCE002D6B 
Si 130130BD92AB96332002962C9720CE9021 BDC23F 
SI1301405BBD01CDCE0027BD0280CE0021BD02756E 
S1 13 91 5026077F00267F002039CE0021 A 600270C29 
SI13016084F0271B7C0026295A7E022FBD02457A83 
SI 1301700026294F20E3962C98339 7207F903A3 9A4 
Si13018080FA96329B39293B9726CE0027BD025B1E 
SI 13 01908D5020B68DE0963290392927CECA21BDAE 
SI1301A0025BCE0027BD0280BD022F4C2915972685 
SI1301B08D4B250FC605CE0021A606A700085A269A 
S11301 COF8208773903A39CE0034BDO 2AB8D59CE86 
SI1301D000210CC605A604A91719A704095A26F577 
SI1301E02040CE9021BD0280C609962B840F27072C 
SI 13 01F0 8DDB7A002B20F38D 365A26EE3 9CE003 46F 
SI1302008D7326020D39C60A8DBD240C398D368DA9 
Si 1 3 02198C24057C002B20F 78DADBD02AB5A26ED26 
SI1302200C39963BD63DDE3F973BD73DDF3F398DBA 
SI 130230F78604CE0021C6010C8D4ECE00278D49D1 
SI1302404A26F020DD8DE18604CE00270CC6018DOO 
SI13025049CE00218D444A26F020C78DCBCE002DF7 
SI130260C605A60008DF41DE3FA70008DF3FDE41EP 
S1 1 3 0270 5A26EF20ADC6056D002604085A26F83 923 
SI 130280C6056F00085A26FA398D65DE4186056673 
Si 13029000084A26FA5A26F3205C8D5 4DE41 860 56E 
SI1302A06904094A26FA5A26F3204B8D43C605866B 
SI 1302B099A004A70409 5A26F60DC605DE41860056 
SI1392C9A90419A704095A26F5202B963291392737 
SI1302D01C2E07CE902D96392003CE0034C6P48D83 
SI 13 02E0A5E600C40FE 7006C05A1 0526F09726399F 
SI 1002F0DF41973CD73EDE41963CD63E3 9B7 
S9030000FC 
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* TSC FLOATING POINT PACKAGE DRIVER 

* 

* 

* COPYRIGHT CO 1976 BY 

* TECHNICAL SYSTEMS CONSULTANTS 

* BOX £574 W. LAFAYETTE IN. 47906 

* 

* THE TSC FLOATING POINT PACKAGE DRIVER, WHEN 

* USED IN CONJUNCTION WITH THE TSC FLOATING POINT 

* PACKAGE, IMPLEMENTS A BASIC FOUR-FUNCTION 

* SCIENTIFIC NOTATION CALCULATOR. THIS PROGRAM 

* ACCEPTS INPUT FROM THE KEYBOARD, IN A FORM 

* TO BE DESCRIBED LATER, INITIATES THE CALCULATION 

* AND THEN OUTPUTS THE RESULT. 

* THE USER IS PROMPTED WITH THE SYMBOL > 

* AT WHICH POINT THE FIRST OPERAND IS TYPED. THE 

* OPERANDS ARE SUBJECT TO FORMAT RESTRICTIONS 

* AS NOTED BELOW. DIRECTLY FOLLOWING THE FIRST 

* OPERAND THE USER TYPES THE OPERATOR, EITHER A 

* +, -, *, OR / FOR ADD, SUBTRACT, MULTIPLY, OR 

* DIVIDE, RESPECTIVELY. DIRECTLY FOLLOWING THE 

* OPERATOR, THE USER TYPES THE SECOND OPERAND, 

* SUBJECT TO THE SAME RESTRICTIONS AS THE FIRST. 

* NEXT A CARRIAGE RETURN IS TYPED TO INITIATE 

* THE CALCULATION AND THEN THE ANSWER IS TYPED 

* OUT AND THE USER IS PROMPTED FOR THE NEXT 
+ CALCULATION. 

* THE RESTRICTIONS ON THE FORMAT OF THE 

* OPERANDS ARE AS FOLLOWS: 

* 1) THE OPERAND MUST BEGIN WITH A PLUS, 

* A MINUS, A DECIMAL POINT (PERIOD), OR ANY 

* DECIMAL DIGIT. 

* 2) THE DECIMAL POINT, IF IT APPEARS, MAY 

+ BE ANY WHERE IN THE NUMBER AFTER THE SIGN 

* <IF ANY> AND BEFORE THE EXPONENT <IF ANY). 

* 3) THE EXPONENT, INDICATED BY THE LETTER 

* E, MAY BE PRECEEDED BY A PLUS OR MINUS SIGN 

* AND IS LIMITED TO TWO DIGITS. 

* 

* THE CALCULATOR TRUNCATES ALL DIGITS IN EXCESS 

* OF 9 SIGNIFICANT DIGITS. 

+ SOME POSSIBLE FORMS ARE SHOWN BELOW: 

* >12*1. 3 

* >. 001-6 

* >-12+3E£ 

* >+5. 6E-E1X-21E+00 

* >123456. 789+. 987654321 

* >+l. 2—3. IE-1 

* >4+-5 

* 

* DEPARTURE FROM THE FORMAT RESTRICTIONS WILL 

* CAUSE A SYNTAX ERROR MESSAGE TO BE PRINTED. 

* OPERATIONS RESULTING IN ARITHMETIC OVER- 
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£ 


E07E 

E1AC 

E1D1 

E067 

E06B 


0050 

0050 

0056 

0057 

0058 

0059 

005A 

005B 

005C 

003F 

0041 

003D 

003E 

002C 

0033 

0026 

0020 

003A 


0103 

0100 

0180 

0194 


A048 

A048 

0300 

0300 

0303 

0306 

0309 

030A 

030C 

030E 

0311 


+ FLOW OR UNDERFLOW WILL CAUSE AN OVERFLOW 

* MESSAGE TO BE PRINTED. 

* THE STARTING ADDRESS OF THIS PROGRAM 

* IS 0300. 

* 

* MIKBUG ROUTINES 

* <MIKBUG IS A REGISTERED 

* TRADEMARK OF MOTOROLA INC. > 


PDATA1 

EQLI 

$E07E 

INEEE 

EQU 

$E1AC 

OUTEEE 

EQU 

$E1D1 

OUTHL 

EQU 

$E067 

OUTHR 

EQU 

$E06B 

* 



* STORAGE 



ORG 

$0050 

INBUF 

RMB 

6 

INEXP 

RMB 

1 

SIGDIG 

RMB 

1 

DECFLG 

RMB 

1 

EXPNEG 

RMB 

1 

EXP 

RMB 

1 

SYNTAX 

RMB 

1 

OPER 

RMB 

1 

XTEMP 

EQU 

$003F 

XTEMP2 

EQU 

$0041 

CTR 

EQU 

$003D 

TOGGLE 

EQU 

$003E 

XSIGN 

EQU 

$002C 

YSIGN 

EQU 

$0033 

ACEXP 

EQU 

$0026 

RSIGN 

EQU 

$0020 

OVFL 

EQU 

$003A 


+. 

* 





♦FLOATING POINT PACKAGE 

ROUTINES 





FPADD 

EQU 


$0103 






FPSUB 

EQU 


$0100 






FPMUL 

EQU 


$0180 






FPDIV 

♦ 

* 

* 

EQU 


$0194 






ORG 


$R048 



03 

00 



FDB 


BEG 







ORG 


$0300 



8E 

A0 

42 

BEG 

LDS 


#$A04£ 

INITIALIZE SP 


CE 

04 

DB 

START 

LDX 


#PROM 



BD 

E0 

7E 


JSR 


PDATA1 



4F 




CLR 

A 




97 

5B 



STA 

A 

SYNTAX 

CLEAR SYNTAX ERROR 

97 

5C 



STA 

A 

OPER 

CLEAR OPERATOR 

FLAG 

BD 

03 

EE 


JSR 


INPUT 

FILL THE INPUT 

BUFFER 

96 

5B 



LDA 

A 

SYNTAX 









3 


FLOATING POINT PRCKRGE DRIVER TSC RSSEMBLER PAGE 


0313 

26 

3C 



BNE 

SVNERR 

CHECK FOR SVNTRX ERROR 

0315 

CE 

00 

2C 


LDX 

#XSIGN 


0318 

BD 

03 

D3 


JSR 

BUFTOX 

TRANSFER INPUT TO XOP 

031B 

BD 

03 

EE 

NXTOP 

JSR 

INPUT 

FILL BUFFER RGRIN 

031E 

96 

5B 



LDR R 

SVNTRX 


0320 

26 

2F 



BNE 

SVNERR 

CHECK FOR SVNTRX ERROR 

0322 

CE 

00 

33 


LDX 

#VSIGN 


0325 

BD 

03 

D3 


JSR 

BUFTOX 

TRANSFER TO VOP 

0328 

96 

5C 



LDR R 

OPER 

GET OPERATOR 

032R 

4fl 




DEC R 



032B 

27 

15 



BEQ 

RDDOP 

IS IT RN ADD REQUEST 

032D 

4R 




DEC fl 



032E 

27 

0D 



BEQ 

SUBOP 

IS IT R SUBTRACT REQ. 

0330 

4R 




DEC R 



0331 

27 

05 



BEQ 

MULOP 

IS IT R MULT. REQUEST 

0333 

BD 

01 

94 


JSR 

FPDIV 

ASSUME IT IS fl DIVIDE 

0336 

20 

0D 



BRR 

PRINT 


0338 

BD 

01 

80 

MIJLOP 

JSR 

FPMUL 

GO MULTIPLV 

033B 

20 

08 



BRR 

PRINT 


033D 

BD 

01 

00 

SUBOP 

JSR 

FPSUB 

GO SUBTRACT 

0340 

20 

03 



BRR 

PRINT 


0342 

BD 

01 

03 

RDDOP 

JSR 

FPRDD 

GO ADD 

0345 

96 

3R 


PRINT 

LDR R 

OVFL 


0347 

27 

0D 



BEQ 

NOVFL 

TEST FOR OVERFLOW 

0349 

CE 

04 

E2 

OV 

LDX 

#QVER 


034C 

BD 

E0 

7E 

PRTMES 

JSR 

PDRTR1 

GIVE HIM MESSAGE 

034F 

20 

B2 



BRR 

START 

DO AGAIN 

0351 

CE 

04 

EF 

SVNERR 

LDX 

#SVNT 


0354 

20 

F6 



BRR 

PRTMES 

PRINT MESSAGE 

0356 

96 

21 


NOVFL 

LDR R 

RSIGN+1 

GET FIRST DIGIT 

0358 

27 

03 



BEQ 

OVCHK 

CHECK FOR =0 

035R 

7fl 

00 

26 


DEC 

RCEXP 

ADJUST FOR OUTPUT 

035D 

96 

26 


OVCHK 

LDR R 

RCEXP 


035F 

81 

63 



CMP R 

#99 


0361 

2E 

E6 



BGT 

OV 

TEST FOR EXP OVERFLOW 

0363 

81 

9D 



CMP fl 

#$9D 


0365 

2D 

E2 



BLT 

OV 

TEST FOR EXP UNDERFLOW 

0367 

CE 

04 

FR 


LDX 

#EQURL 


036R 

BD 

E0 

7E 


JSR 

PDRTR1 

PRINT CRLF = 

036D 

96 

20 



LDR R 

RSIGN 

GET SIGN 

036F 

27 

05 



BEQ 

POS 

IS IT POSITIVE 

0371 

86 

2D 



LDR R 

#'- 


0373 

BD 

El 

D1 


JSR 

OUTEEE 

PRINT fl MINUS 

0376 

96 

21 


POS 

LDR R 

RSIGN+1 

GET BVTE 

0378 

BD 

E0 

6B 


JSR 

OUTHR 

PRINT LS BCD 

037B 

C6 

08 



LDR B 

#8 

SET FOR COUNTING OFF 

037D 

CE 

00 

25 


LDX 

#RCEXP-1 

POINT TO LAST BVTE 

0380 

R6 

00 


CNTOFF 

LDR fl 

0/ X 

GET THE BVTE 

0382 

85 

0F 



BIT fl 

#$0F 


0384 

26 

09 



BNE 

GOTCNT 

CHECK FOR LS ZERO 

0386 

5R 




DEC B 


COUNT OFF DIGIT 

0387 

85 

F0 



BIT R 

#*F0 


0389 

26 

04 



BNE 

GOTCNT 

CHECK FOR MS ZERO 

038B 

09 




DEX 


POINT TO NEXT 






FLORTING 

POINT 

PflCKRGE 

DRIVER 


TSC RSSEMBLER PRGE 

038C 

5R 




DEC 

B 


COUNT OFF ONE DIGIT 

038D 

26 

FI 



BNE 


CNTOFF 

IF NOT 8 DO RGRIN 

038F 

CE 

00 

22 

GOTCNT 

LDX 


#RSIGN+2 

POINT TO SEC. BVTE 

0392 

5D 




TST 

B 


CHECK FOR ZERO 

0393 

27 

16 



BEQ 


PRTEXP 

IF SO, GO PRINT EXP. 

0395 

86 

2E 



LDR 

R 

#'. 


0397 

BD 

El 

D1 


JSR 


OUTEEE 

PRINT DECIMAL POINT 

039R 

R6 

00 


PRTLOP 

LDR 

R 

0 , X 

GET NEXT CHRR 

039C 

BD 

E0 

67 


JSR 


OUTHL 

PRINT MS BCD 

039F 

5R 




DEC 

B 


CHECK IF DONE 

03R0 

27 

09 



BEQ 


PRTEXP 

IF SO GO PRINT EXP. 

03R2 

R6 

00 



LDR 

R 

0, X 

GET BVTE RGRIN 

03R4 

BD 

E0 

6B 


JSR 


OUTHR 

PRINT LS BCD 

03R7 

08 




INX 




03R8 

5R 




DEC 

B 


ONE BVTE DONE 

03R9 

26 

EF 



BNE 


PRTLOP 


03RB 

D6 

26 


PRTEXP 

LDR 

B 

RCEXP 


03 AD 

27 

21 



BEQ 


NOPRT 

CHECK FOR EXP =0 

03RF 

86 

45 



LDR 

R 

#'E 


03B1 

BD 

El 

D1 


JSR 


OUTEEE 

PRINT RN E 

03B4 

86 

£B 



LDR 

R 

#' + 

GET ASCII FOR + 

03B6 

5D 




TST 

B 


CHECK THE SIGN 

03B7 

2R 

03 



BPL 


PRTEXS 

TEST SIGN 

03B9 

50 




NEG 

B 


COMPLEMENT THE EXP. 

03BR 

86 

2D 



LDR 

R 

#•'- 


03BC 

BD 

El 

D1 

PRTEXS 

JSR 


OUTEEE 

PRINT EXPONENT SIGN 

03BF 

4F 




CLP. 

R 


CONVERT TO BCD AND PRINT 

03C0 

C0 

0R 


SUBT 

SUB 

B 

#10 

SUBTRRCT 10 

03C2 

25 

03 



BCS 


TOOMAN 

SHOULDN'T SUBTRRCT? 

03C4 

4C 




INC 

R 


COUNT ONCE 

03C5 

20 

F9 



BRR 


SUBT 


03C7 

BD 

E0 

6B 

TOOflflN 

JSR 


OUTHR 

PRINT MS DIGIT 

03CR 

86 

0R 



LDR 

R 

#10 


03CC 

IB 




RBR 



COMPENSATE REMAINDER 

03CD- 

BD 

E0 

6B 


JSR 


OUTHR 

PRINT LS DIGIT 

03D0 

7E 

03 

03 

NOPRT 

♦BUFTOX 

JMP 


STRRT 






* MOVE 

INPUT BUFFER CONTENTS TO X 

03D3 

DF 

3F 


BUFTOX 

STX 


XTEMP 

SAVE X 

03D5 

CE 

00 

50 


LDX 


#INBUF 


03D8 

R6 

00 


BUF1 

LDR 

R 

0, X 

GET CHRR OF BUFFER 

03DR 

08 




INX 




03DB 

8C 

00 

58 


CPX 


#INEXP+2 

DONE VET? 

03DE 

27 

0D 



BEQ 


DONE 


03E0 

DF 

41 



STX 


XTEMP2 


03E2 

DE 

3F 



LDX 


XTEMP 


03E4 

R7 

00 



STR 

R 

0, X 


03E6 

08 




INX 




03E7 

DF 

3F 



STX 


XTEMP 


03E9 

DE 

41 



LDX 


XTEMP2 


03EB 

20 

EB 



BRR 


BUF1 


03ED 

39 



DONE 

* 

RTS 












■$$$ tWm '■ 


FLOATING 

POINT 

PACKAGE 

DRIVER 


TSC ASSEMBLER PAGE 





*INPUT 








* FILL 

THE INPUT BUFFER 

AND SET FLAGS 

03EE 

CE 

00 

5A 

INPUT 

LDX 

#EXP 


03F1 

6F 

00 


STUF 

CLR 

0, X 

CLEAR THE BUFFER 

03F3 

09 




DEX 



03F4 

8C 

00 

4F 


CPX 

#INBUF-1 


03F7 

26 

F8 



BNE 

STUF 


03F9 

08 




INX 



03FA 

7F 

00 

3D 


CLR 

CTR 

CLEAR FULL FLAG 

03FD 

C6 

FF 



LDA B 

#$FF 


03FF 

D7 

3E 



STR B 

TOGGLE 

SET BVTE TOGGLE 

0401 

BD 

04 

D3 

INCH 

JSR 

INCHAR 

GET A CHAR 

0404 

81 

2B 



CMP A 

#' + 


0406 

27 

11 



BEQ 

INNEXT 

IGNORE PLUS SIGN 

0408 

81 

2D 



CMP A 



040A 

26 

04 



BNE 

NOTNEG 

IF NOT MINUS PROCEED 

040C 

63 

00 



COM 

0, X 

SET SIGN INDICATOR 

040E 

20 

09 



BRA 

INNEXT 

GET NEXT CHAR 

0410 

81 

2E 


NOTNEG 

CMP A 

#'. 


0412 

27 

03 



BEQ 

ISPT 

CHECK FOR DEC. POINT 

0414 

08 



NOTPT 

INX 


POINT NEXT BVTE 

0415 

20 

06 



BRA 

CRCHK 

GO CHECK FOR CR 

0417 

97 

58 


ISPT 

STR A 

DECFLG 

SET DECIMAL FLAG 

0419 

03 



INNEXT 

INX 



041fl 

BD 

04 

D3 

GETIN 

JSR 

INCHAR 

GET CHAR 

041D 

81 

0D 


CRCHK 

CMP A 

#$D 


041F 

27 

71 



BEQ 

REL 

CHECK FOR CR 

0421 

80 

30 



SUB A 


REMOVE ASCII BIAS 

0423 

27 

08 



BEQ 

GOTZER 

CHECK FOR ZERO INPUT 

0425 

2B 

3A 



BMI 

NOTVET 

CHECK FOR <0 

0427 

81 

09 



CMP A 

#'9-'0 


0429 

22 

36 



BHI 

NOTVET 

CHECK FOR >9 

042B 

97 

57 



STA A 

SIGDIG 

SET SIGNIFICANT FLAG 

042D 

D6 

3D 


GOTZER 

LDA B 

CTR 

042F 

26 

E9 



BNE 

GETIN 

CHECK FOR BUFF. FULL 

0431 

D6 

57 



LDA B 

SIGDIG 

HAD SIG. DIGITS? 

0433 

26 

09 



BNE 

TSTNXT 


0435 

D6 

58 



LDA B 

DECFLG 

HAD DECIMAL PT? 

0437 

27 

El 



BEQ 

GETIN 

IF NOT 0 NOT SIG. 

0439 

7fl 

00 

56 


DEC 

INEXP 

IF SO BACK UP EXP. 

043C 

20 

DC 



BRA 

GETIN 


043E 

D6 

58 


TSTNXT 

LDA B 

DECFLG 

HAD DECIMAL PT? 

0440 

26 

03 



BNE 

STORIT 

IF SO EXP. OK 

0442 

7C 

00 

56 


INC 

INEXP 

KICK EXPONENT 

0445 

D6 

3E 


STORIT 

LDA B 

TOGGLE 

CHECK FOR WHICH DIGIT 

0447 

26 

04 



BNE 

LOHALF 


0449 

48 




ASL A 



044fl 

48 




ASL A 



044B 

48 




ASL A 



044C 

48 




ASL A 


GET TO TOP HALF 

044D 

AA 

00 


LOHALF 

ORA A 

Q, X 

MERGE 

044F 

R7 

00 



STR A 

0/ X 

RE-STORE IT 

0451 

73 

00 

3E 


COM 

TOGGLE 

SET FOR NEXT DIGIT 

0454 

26 

01 



BNE 

NOTNXT 

CHECK FOR NEXT BVTE 







FLOATING 

POINT 

PRCKAGE 

DRIVER 


TSC ASSEMBLER PAGE 

0456 

08 




I NX 



POINT TO NEXT BVTE 

0457 

8C 

00 

56 

NOTNXT 

CPX 


#INEXP 

CHECK FOR END OF BUFF 

045A 

26 

BE 



BNE 


GETIN 

IF NOT GET MORE 

045C 

73 

00 

3D 


COM 


CTR 

SET BUFFER END FLG 

045F 

20 

B9 



BRft 


GETIN 

GET NEXT CHAR 

0461 

8B 

30 


NOTVET 

RDD 

A 

#"0 

RESTORE ASCII 

0463 

81 

45 


FULL 

CMP 

fl 

#'E 


0465 

27 

2D 



BEG! 


EXPIN 

CHECK FOR EXP IND. 

0467 

C6 

01 



LDfl 

B 

#1 

SET OPER FLAG 

0469 

81 

2B 



CMP 

fl 

#' + 


046B 

27 

IF 



BEQ 


GOTOP 

CHECK FOR ADD OPER. 

046D 

5C 




INC 

B 



046E 

81 

2D 



CMP 

fl 



0470 

27 

1H 



BEQ 


GOTOP 

CHECK FOR SUB. OPER. 

0472 

5C 




INC 

B 



0473 

81 

2FI 



CMP 

fl 

#'* 


0475 

27 

15 



BEQ 


GOTOP 

CHECK FOR MUL. OPER. 

0477 

5C 




INC 

B 



0478 

81 

2F 



CMP 

fl 

*'/ 


047R 

27 

10 



BEQ 


GOTOP 

CHECK FOR DIV. OPER. 

047C 

81 

2E 



CMP 

fl 


CHECK FOR DEC. PT 

047E 

26 

08 



BNE 


SVNERF 


0480 

D6 

58 



LDfl 

B 

DECFLG 

CHECK FOR ALREflDV DEC. PT 

0482 

26 

04 



BNE 


SVNERF 


0484 

97 

58 



STfl 

fl 

DECFLG 

FLAG fl DEC. PT. 

0486 

20 

92 



BRft 


GETIN 


0488 

97 

5B 


SVNERF 

STfl 

fl 

SVNTflX 

FLAG fl SVNTflX ERROR 

048ft 

20 

8E 



BRft 


GETIN 

GET MORE CHARS. 

048C 

96 

5C 


GOTOP 

LDfl 

fl 

OPER 

CHECK FOR ALREflDV OPER. 

048E 

26 

F8 



BNE 


SVNERF 

IF SO/ FLAG AN ERROR 

0490 

D7 

5C 



STfl 

B 

OPER 

SET OPER FLG 

0492 

20 

27 


REL 

BRA 


GOTDIG 


0494 

8D 

3D 


EXPIN 

BSR 


INCHflR 


0496 

81 

2B 



CMP 

fl 

#' + 


0498 

27 

Ffl 



BEQ 


EXPIN 

IGNORE PLUS 

049ft 

81 

2D 



CMP 

fl 



049C 

26 

05 



BNE 


CHKNXT 


049E 

73 

00 

59 


COM 


EXPNEG 

SET EXPONENT SIGN 

04FI1 

8D 

30 


EXINP 

BSR 


INCHflR 

GET fl CHAR 

04R3 

80 

30 


CHKNXT 

SUB 

fl 

#'0 


04R5 

2B 

04 



BMI 


SVNEXP 

CHECK FOR <0 

04R7 

81 

09 



CMP 

fl 

#9 


04R9 

23 

05 



BLS 


EXPOK 

CHECK FOR >9 

04RB 

8B 

30 


SVNEXP 

ADD 

fl 

#'0 

RESTORE ASCII 

04RD 

7E 

04 

ID 


JMP 


CRCHK 

GO CHECK FOR CR 

04B0 

D6 

5R 


EXPOK 

LDfl 

B 

EXP 


04B2 

58 




flSL 

B 



04B3 

58 




FISL 

B 



04B4 

58 




flSL 

B 



04B5 

58 




flSL 

B 



04B6 

IB 




ABA 



MERGE 

04B7 

97 

5fi 



STfl 

fl 

EXP 

STUFF EXP 

04B9 

20 

E6 



BRA 


EXINP 


04BB 

96 

5ft 


GOTDIG 

LDfl 

fl 

EXP 








FLOATING 

POINT 

PRCKRGE 

DRIVER 



TSC ASSEMBLER 

04BD 

84 

F0 


AND 

A 

#$F0 


MASK MS 4 BITS 

04BF 

44 



LSR 

A 




04C0 

16 



TAB 





04C1 

44 



LSR 

R 




04C2 

44 



LSR 

A 




04C3 

IB 



ABA 




MULTIPLY BY 10 

04C4 

D6 

5fl 


LDR 

B 

EXP 


GET OLD EXP BACK 

04C6 

C4 

0F 


AND 

B 

#$0F 


GET LS DIGIT 

04C8 

IB 



ABA 




ADD IN 

04C9 

D6 

59 


LDR 

B 

EXPNEG 


CHECK FOR EXP SIGN 

04CB 

27 

01 


BEQ 


POSEXP 



04CD 

40 



NEC 

fi 




04CE 

9B 

56 

POSEXP 

ADD 

A 

INEXP 


GET RESULTING EXP. 

04D0 

97 

56 


STA 

A 

INEXP 


STORE IT 

04D2 

39 



RTS 





04D3 

BD 

El AC 

INCHRR 

JSR 


INEEE 


GET A CHAR 

04D6 

81 

£0 


CMP 

A 

#$£0 



04D8 

27 

F9 


BEQ 


INCHAR 


IGNORE BLANKS 

04DA 

39 



RTS 





04DB 

0D 


PROM 

FCB 


$D, $A.. 0. 

0 


04DF 

3E 



FCC 


; > ; 



04E1 

04 



FCB 


4 



04E2 

0D 


OVER 

FCB 


$fl.* 0/ 

0 


04E6 

4F 



FCC 


; OVERFLOW; 


04EE 

04 



FCB 


4 



04EF 

0D 


SYNT 

FCB 


$D, $R, 0, 

0 


04F3 

53 



FCC 


; SYNTAX; 



04F9 

04 



FCB 


4 



04FA 

0A 


EQUAL 

FCB 


*A, 0, 0 



04FD 

20 



FCC 


.* ~) 



04FF 

04 



FCB 


4 







END 






SYMBOL TABLE: 


ACEXP 

0026 

RDDOP 

0342 

BEG 

CHKNXT 

04A3 

CNTOFF 

0380 

CRCHK 

DONE 

03ED 

EQUAL 

04FA 

EXINP 

EXPNEG 

0059 

EXPOK 

04B0 

FPADD 

FPSUB 

0100 

FULL 

0463 

GETIN 

GOTOP 

048C 

GOTZER 

042D 

INBUF 

INEEE 

E1AC 

INEXP 

0056 

INNEXT 

LOHALF 

044D 

MULOP 

0338 

NOPRT 

NOTPT 

0414 

NOTYET 

0461 

NOVFL 

OUTEEE 

E1D1 

OUTHL 

E067 

OUTHR 

OVER 

04E2 

OVFL 

003A 

PDATA1 

PRINT 

0345 

PROM 

04DB 

PRTEXP 

PRTMES 

034C 

REL 

0492 

RSIGN 

STORIT 

0445 

STUF 

03F1 

SUBOP 

SYNERR 

0351 

SYNEXP 

04AB 

SYNT 

TOOMAN 

03C7 

TSTNXT 

043E 

XSIGN 

YSIGN 

0033 





0300 

BUF1 

03D8 

BUFTOX 

03D3 

041D 

CTR 

003D 

DECFLG 

0058 

04A1 

EXP 

005A 

EXPIN 

0494 

0103 

FPDIV 

0194 

FPMUL 

0180 

041A 

GOTCNT 

038F 

GOTDIG 

04BB 

0050 

INCH 

0401 

INCHAR 

04D3 

0419 

INPUT 

03EE 

ISPT 

0417 

03D0 

NOTNEG 

0410 

NOTNXT 

0457 

0356 

NXTOP 

031B 

OPER 

005C 

E06B 

OV 

0349 

OVCHK 

035D 

E07E 

POS 

0376 

POSEXP 

04CE 

03AB 

PRTEXS 

03BC 

PRTLOP 

039A 

0020 

SIGDIG 

0057 

START 

0303 

033D 

SUBT 

03C0 

SYNERF 

0488 

04EF 

SYNTAX 

005B 

TOGGLE 

003E 

002C 

XTEMP 

003F 

XTEMP2 

0041 
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SCIENTIFIC FUNCTIONS 


* 

* 

* COPYRIGHT (C) 1976 BY 

* TECHNICAL SYSTEMS CONSULTANTS 

* BOX 2574 W. LAFAYETTE IN 47906 

* 

* THE TSC SCIENTIFIC FUNCTIONS PACKAGE IS DESIGNED 

* TO UTILIZE THE TSC FLOATING POINT PACKAGE FOR 

* ARITHMETIC PROCESSING. THE ROUTINES IMPLEMENT 

* SOME OF THE MOST USED SCIENTIFIC FUNCTIONS USING 

* THE CORDIC (COORDINATE ROTATION DIGITAL COMPUTER) 

* ALGORITHM; AN OBSCURE BUT USEFUL ALGORITHM BECAUSE 

* IT INVOLVES FEWER MULTIPLICATIONS (BUT MORE ADDITIONS) 

* THAN OTHER APPROXIMATION TECHNIQUES; AND THEREFORE 

* RUNS FASTER. THE TECHNIQUE INVOLVES ROTATING A 

* COORDINATE SYSTEM TO OBTAIN A MAPPING FROM THE FIRST 

* SYSTEM INTO A SECOND COORDINATE SYSTEM WHICH IS 

* ROTATIONALLY DISPLACED FROM THE FIRST. THE ROTATION 

* IS ACCOMPLISHED IN A SEQUENCE OF CAREFULLY CALCULATED 

* DISPLACEMENTS SUCH THAT THE INTERMEDIATE MAPPINGS 

* CAN BE PERFORMED BY MERELY ADDING AND SHIFTING; OR 

* IN THIS CASE; ADDING AND DECREMENTING EXPONENTS. 

* BE REMINDED THAT THIS PACKAGE CONTAINS SUBROUTINES ONLY. 

* THIS PACKAGE ALSO CONTAINS SEVERAL USEFUL CONSTANTS 

* FOR THE USER. AMONG THESE ARE PI; E; AND LN10. SEE 

* THE DATA BLOCKS BELOW. 

* THIS PROGRAM IS DESIGN SUCH THAT THE USER DESIRING 

* ONLY TRIG FUNCTIONS CAN DELETE THE SECTION OF CODE 

* BEYOND 0700 AS THAT CODE IS ONLY USED FOR THE 

* HYPERBOLIC FAMILY OF FUNCTIONS (LOGS; ETC. ). 

* THE PRECISION OF THE APPROXIMATIONS IS LIMITED TO 

* SIX DIGITS (MORE DIGITS WOULD TAKE PROPORTIONATELY 

* LONGER). THE ENTRY ADDRESSES; ARGUMENT AND RESULT 

* LOCATIONS; AND RANGE OF ARGUMENTS ARE SHOWN IN THE 

* TABLES BELOW: 


♦ 


4c 

OPERATION 

ARGUMENT 

RESULT 

ARGUMENT 

LIMITS 

4c 

SIN(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. KXCINF 

(ABS VAL) 

4c 

COS(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. 1< 

X 

<INF 

(ABS VAL) 

4c 

TAN(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. 1< 

X 

<INF 

(ABS VAL) 

4c 

ARCSIN(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. 01< 

X 

<1. 0 

(ABS VAL) 

4c 

ARCCOS(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. 01< 

X 

<1. 0 

(ABS VAL) 

4« 

ARCTAN(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. 01< 

X 

<INF 

(ABS VAL) 

4c 

SINH(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. 1< 

X 

<LN(10) (ABS VAL) 

4c 

COSH(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. 1< 

X 

<LN(10) (ABS VAL) 

4c 

TANH(X) 

XSIGN-XEX 

RSIGN-ACEXP 

. ±< 

X 

<LN(10) (ABS VAL) 

4c 

ETX 

XSIGN-XEX 

RSIGN-ACEXP 

0 < 

X 

< 227 

(ABS VAL) 

4c 

10tX 

XSIGN-XEX 

RSIGN-ACEXP 

0 < 

X 

< 98 

(ABS VAL) 

4c 

LN(X) 

XSIGN-XEX 

RSIGN-ACEXP 

ANY 

POSITIVE VALUE 

4c 

LOG(X) 

XSIGN-XEX 

RSIGN-ACEXP 

ANY 

POSITIVE VALUE 

4c 

SQRT(X) 

XSIGN-XEX 

RSIGN-ACEXP 

ANY 

POSITIVE VALUE AND 0 

4c 

xtv 

XSIGN-XEX 


ANY 

POSITIVE VALUE 

4c 


YSIGN-YEX 

RSIGN-ACEXP 

ANY 

VALUE 
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* 

* 

* 

♦ 

* 

* 

* 

* 


1/X 


XSIGN-XEX RSIGN-ACEXP X NOT ZERO 


NOTES: 

** jssr-" s»:'SE.s.r™ mS' 

00 ■ DEGREE MODE/ FF * RADIAN MODE 


* 2> EtX IS THE NUMBER E RAISED TO THE X POWER. 

* 3> LN<X> IS THE NATURAL LOG (BASE E> OF X 

t 4> LOG<X> IS THE COMMON LOG (BASE 10> OF X 
! 5> SORT(X> IS THE SQUARE ROOT OF X 

l 6> XtV IS X RAISED TO THE V POWER. X IS IN XSIGN-XEX 

* V IS IN VSIGN-VEX. 

t 7) 1/X IS THE INVERSE OF X 

* 8) OVERFLOW IS INDICATED BV "OVFL" (003A HEX> NOT ZERO 


♦ 

* 

♦ 

* 


9) ILLEGAL OPERATION IS INDICATED BV "NLEOAL" <007E> 
NOT ZERO. THE USER MUST CLEAR NLEGAL BEFORE 
CALLING A PARTICULAR ROUTINE. 


* 10> INF ABOVE MEANS . 999999999 X 10T99 

* -INF ABOVE MEANS . 100000000 X 10T-99 


* 

* 

♦ 

* OPERATION 

* SIN 

* COS 

* TAN 

* ARCSIN 

* ARCCOS 

* ARCTAN 

* SINH 

* COSH 

* TANH 

* EtX 

* 10tX 

* LN(X> 

* LOG(X) 

* 1/X 

* SORT 

* XtV 


ENTRV ADDRESS 
0460 
0459 
0496 
05B7 
059C 
0647 
07BE 
07C8 
07CF 
075F 
0751 
0836 
0820 
0744 
0739 
0701 


* 


* 

aft 

* EXTERNAL ROUTINES FROM FP PACKAGE 
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0103 


FPRDD 

EQU 

$0103 

0100 


FPSUB 

EQU 

$0100 

0180 


FPMULT 

EQU 

$0180 

0194 


FPDIV 

EQU 

$0194 

0262 


X0PT01 

EQU 

$0262 

0275 


ZCHK 

EQU 

$0275 

014fl 


NORM 

EQU 

$014R 

01CD 


BCDRDD 

* 

EQU 

$01CD 



* 

* STORAGE ALSO USED BV FP PRCKRGE 

0020 


RSIGN 

EQU 

$0020 

002C 


XSIGN 

EQU 

$002C 

0032 


XEX 

EQU 

$0032 

002D 


XOP 

EQU 

$002D 

0033 


VSIGN 

EQU 

$0033 

0034 


VOP 

EQU 

$0034 

0039 


VEX 

EQU 

$0039 

003B 


OVFL 

EQU 

$003A 

003F 


XTEMP 

EQU 

$003F 

0041 


XTEMP2 

* 

EQU 

$0041 



* 

* TEMPORRRV 

STORAGE FOR SCIENTIFIC PACKAGI 

0045 



ORG 

$0045 

0045 


JfC 

XPRIME 

RMB 

7 

004C 


VPRIME 

RMB 

7 

0053 


ZPRIME 

RMB 

7 

005A 


TPRIME 

RMB 

7 

0061 


ANGLE 

RMB 

7 

0068 


AFACTX 

RMB 

2 

006R 


XOPN 

RMB 

1 

0068 


VOPN 

RMB 

1 

006C 


AOPN 

RMB 

1 

0060 


LSTSGN 

RMB 

1 

006E 


SIGN 

RMB 

1 

006F 


OPX 

RMB 

2 

0071 


ITER 

RMB 

1 

0072 


NLEGAL 

RMB 

1 

0073 


C4 

RMB 

2 

0075 


QUADRT 

RMB 

1 

0076 

00 

¥ 

MODE 

* 

FCB 

0 SET DEGREE MODE 

0300 


* 

He 

ORG 

$0300 



* 

* FUNDAMENTAL 

CONSTANTS <•-'* 



* 


^ .‘ -- l 

0300 

00 

PI 

FCB 

$00, $03, $14, $15, $92, $65, $01 

0307 

00 

LN10 

FCB 

$00, $02, $30, $25, $85, $09, $01 

030E 

00 

E 

FCB 

$00, $02, $71, $82, $81, $83, $01 


PRGE 3 








' 
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0315 

00 


NINETY 

FCB 

031C 

00 


C360 

FCB 

0323 

00 


TWO 

FCB 

032A 

00 


ONE 

FCB 

0331 

00 


ZERO 

FCB 

0338 

00 


INF 

FCB 

033F 

00 


RCON 

FCB 

0345 

00 


RTODEG 

FCB 

• 



* CONSTANTS 

034C 

00 


TRIGX 

FCB 

0353 

04 


RNGFAC 

FCB 

0359 

05 



FCB 

035F 

05 



FCB 

0365 

05 



FCB 

036B 

05 



FCB 

0371 

05 



FCB 

0377 

05 



FCB 

037D 

05 



FCB 

0383 

05 



FCB 

0389 

00 


HYPCON 

FCB 

0390 

01 


HYPRNG 

FCB 

0396 

01 



FCB 

039C 

01 



FCB 

03A2 

01 



FCB 

03A8 

01 



FCB 

03AE 

01 



FCB 

03B4 

01 



FCB 

03BA 

01 



FCB 

03C0 

01 



FCB 




* 





* 





* SIGN 

DETER 

0030 



SSBYTE 

EQU 

0050 



TSBYTE 

EQU 




* 





** INTEGER 




* THIS 

ROUTI 

03C6 

R6 

06 

INTEGER 

: LDA 

03C8 

C6 

05 


LDA 

03CA 

08 



INX 

03CB 

81 

00 

TESTIT 

CMP 

03CD 

2F 

06 


BLE 

03CF 

08 



INX 

03D0 

5A 



DEC 

03D1 

80 

02 


SUB 

03D3 

20 

F6 


BRA 

03D5 

26 

0A 

GOTIT 

BNE 

03D7 

A6 

00 


LDA 

03D9 

84 

F0 


AND 

03DB 

R7 

00 


STA 

03DD 

08 


NEXDIG 

INX 

03DE 

5A 



DEC 


* MISCELLANEOUS NUMERICAL CONSTANTS 

♦00, $09, *00, *00, *00, *00, *02 
*00, *03, *60, *00, *00, *00, *03 
*00, *02, *00, *00, *00, $00, $01 
*00, *01, *00, *00, $00, $00, $01 
$ 00 , $ 00 , $ 00 , $ 00 , $ 00 , $ 00 , $00 
$00, $09, $99, $99, $99, $99, $63 
*00, *00, *00, *00, $05, *00 
*00, *05, *72, *95, *77, *95, *02 
)R THE ALGORITHM 
*00, *06, *75, *83, *61, *59, *00 
*04, *50, *00, *00, $00, $02 
*05, *71, *05, *93, *14, *01 
*05, *72, *93, *86, *98, *00 
*05, *72, *95, *76, $04, $FF 
$05, $72, $95, $77, $89, $FE 
$05, *72, $95, $77, $95, $FD 
$05, $72, *95, *77, $95, $FC 
$05, $72, $95, $77, $95, $FB 
$05, *72, *95, *77, $95, $FR 
*00, $01, $11, $81, $37, *93, *01 
*01, *00, *33, *53, *48, $00 
*01, *00, $00, $33, *33, *FF 
$01, *00, *00, *00, $33, $FE 
$01, *00, $00, $00, $00, $FD 
$01, *00, *00, *00, $00, $FC 
*01, *00, *00, *00, $00, $FB 
$01, $00, $00, $00, $00, $FR 
$01, *00, *00, *00, *00, $F9 
*01, *00, *00, *00, $00, $F8 


00110000B 

01010000B 


INTEGERIZES THE OPERAND POINTED TO BV X 


6, X 
#5 

#0 

GOTIT 


#2 

TESTIT 
ALLZER 
0, X 
#$F0 
0, X 


GET THE EXPONENT 

CHECK FOR 0 
ADVANCE POINTER 


DO AGAIN 

CHECK WHICH DIGIT 
GET BVTE 
MASK OUT LOW 
PUT BACK 
ADVANCE POINTER 
KICK COUNTER 


C 
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03DF 

27 

04 


BEQ 

INTDON 


03E1 

6F 

00 

ALLZER 

CLR 

0, X 

SET 0 

03E3 

20 

F8 


BRA 

NEXDIG 


03E5 

A6 

00 

INTDON 

LDA A 

0, X 

GET EXPONENT 

03E7 

2A 

02 


BPL 

ALLOK 


03E9 

6F 

00 


CLR 

0j X 

SET 0 

03EB 

39 


ALLOK 

RTS 


DONE 


* 

* 


** EXTRCT 

* THIS ROUTINE EXTRACTS FACTORS FROM ARGUMENTS. THE 

* ARGUMENT IS ASSUMED IN XSIGN-XOP-XEX WHILE THE 

* INDEX REGISTER POINTS TO THE FACTOR TO BE EXTRACTED. 

* THE INTEGER NUMBER OF FACTORS IS RETURNED IN ZPRIME. 


03EC 

DF 

73 


EXTRCT STX 

C4 

SAVE FACTOR POINTER 

03EE 

BD 

06 

E5 

JSR 

M0VE3 


03F1 

BD 

01 

94 

JSR 

FPDIV 

GO REMOVE FACTOR 

03F4 

CE 

00 

20 

LDX 

#RSIGN 


03F7 

8D 

CD 


BSR 

INTEGER 

GO INTEGERIZE 

03F9 

CE 

00 

53 

LDX 

#ZPRIME 


03FC 

BD 

06 

D5 

JSR 

MOVE1 

SAVE THE FACTOR 

03FF 

CE 

00 

2C 

LDX 

#XSIGN 


0402 

BD 

06 

EC 

JSR 

M0VE4 

SAVE OPERAND 

0405 

CE 

00 

2C 

LDX 

#XSIGN 


0408 

BD 

06 

D5 

JSR 

MOVE1 


040B 

DE 

73 


LDX 

C4 

GET FACTOR POINTER 

040D 

BD 

06 

E5 

JSR 

M0VE3 

SET VOP 

0410 

BD 

01 

80 

JSR 

FPMULT 

GO MULTIPLV BACK 

0413 

CE 

00 

33 

LDX 

#VSIGN 


0416 

BD 

06 

D5 

JSR 

MOVE1 

GET RESULT 

0419 

CE 

00 

45 

LDX 

#XPRIME 

GET OPERAND 

041C 

BD 

06 

DE 

JSR 

M0VE2 


041F 

7E 

01 

00 

JMP 

FPSUB 

GO SUBTRACT 


* 

* 


** TRGFAC 

* THIS ROUTINE IS THE FRONT END ROUTINE FOR 

* TRIGONOMETRIC FUNCTIONS. CONVERSION FROM RADIAN 

* TO DEGREE MODE IS DONE HERE. THE ANGLES ARE 

* THEN REDUCED TO LESS THAN 90 DEGREES IN MAG- 

* NITUDE AND MADE POSITIVE. THIS ROUTINE THEN 

* CALLS THE BASIC ROUTINE FOR TRIGONOMETRIC CORDIC. 


0422 

96 

2C 


TRGFAC 

LDA 

A 

XSIGN 

GET THE SIGN 

0424 

97 

6E 



STA 

A 

SIGN 

SAVE THE SIGN 

0426 

7F 

00 

2C 


CLR 


XSIGN 

SET =00 

0429 

96 

76 



LDA 

A 

MODE 

GO GET MODE INDICATOR 

042B 

27 

0F 



BEQ 


DEGREE 

IF 0/ THEN DEGREE 

042D 

CE 

03 

45 


LDX 


#RTODEG 

PT TO CONSTANT 

0430 

BD 

06 

E5 


JSR 


M0VE3 

MOVE TO VOP 

0433 

BD 

01 

80 


JSR 


FPMULT 

GO CONVERT TO DEGREES 

0436 

CE 

00 

2C 


LDX 


#XSIGN 

POINT TO XOP 

0439 

BD 

06 

D5 


JSR 


MOVE1 

MOVE RESULT THERE 

043C 

CE 

03 

1C 

DEGREE 

LDX 


#C360 

POINT TO CONSTANT 

043F 

8D 

AB 



BSR 


EXTRCT 

GO REMOVE FACTORS OF 360 
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0441 CE 00 2C 
0444 BD 06 D5 
044? CE 03 15 
044R 8D R0 
044C 96 54 
044E 97 75 
0450 96 21 
0452 27 04 
0454 BD 04 DB 
0457 43 
0458 39 


0459 86 01 
045B 7F 00 2C 
045E 20 01 


0460 4F 
0461 36 
0462 8D BE 
0464 0? 

0465 33 
0466 DB 75 
0468 C4 03 
046R D7 75 
046C 06 
046D 27 1C 
046F CE 00 4C 
0472 56 
0473 24 03 
0475 CE 00 45 
0478 C6 30 


LDX #XSIGN 
JSR MOVE1 
LDX #NINETY 
BSR EXTRCT 
LDR fl ZPRIME+1 
STR R QURDRT 
LDR fl RSIGN+1 
BEQ EXCEPT 
JSR TRIGN 
COM R 

EXCEPT RTS 
* 

* 

* 

** QOS 

* ENTRY POINT FOR COSINE 


COS 

LDR 

A 

#01 


CLR 


XSIGN 


BRA 


SIN0 

* 




* 




** SIN 




* ENTRY 

POINT 

FOR SINE 

SIN 

CLR 

A 


SIN0 

PSH 

A 



BSR 


TRGFRC 


TPA 




PUL 

B 



ADD 

B 

QURDRT 


AND 

B 

#3 


STA 

B 

QURDRT 


TAP 




BEQ 


SPECL 


LDX 


#YPRIME 


ROR 

B 



BCC 


SIN1 


LDX 


#XPRIME 

SIN1 

LDR 

B 

#SSBYTE 

* 




* 





MOVE THE RESULT 

REMOVE FACTORS OF 90 
GET QUADRANT 


IF 0/ EXCEPTION 
GO COMPUTE 
SET FLAG 
DONE 


SET PHASE DIFFERENCE 
GO DO SINE 


SET BYTE 
SAVE 

GO COMPUTE 
SAVE STATUS 
GET PHASE 
ADD TO QUADRANT 
MASK TO 0-3 

RESTORE STATUS 
IF Z, SPECIAL CASE 
POINT TO ANSWER 
CHECK QUADRANT 
IF 1 OR 3/ THEN OK 
ELSE SWITCH TO COS 
GET SINE SIGN BYTE 


** TRGSGN 

* THIS ROUTINE SELECTS THE SIGN OF THE RESULT 

* OF TRIG FUNCTIONS AND THEN GOES TO THE 


* ROUNDING PROCESSOR. 


047A 

96 

75 

TRGSGN 

LDR 

A 

QURDRT 

047C 

27 

04 

TESTSG 

BEQ 


GOTBIT 

047E 

58 



ASL 

B 


047F 

4A 



DEC 

A 


0480 

20 

FA 


BRA 


TESTSG 

0482 

96 

6E 

GOTBIT 

LDR 

A 

SIGN 

0484 

5D 



TST 

B 


0485 

2A 

01 


BPL 


TRGDON 

0487 

43 



COM 

A 


0488 

7E 

06 97 

TRGDON 

JMP 


ROUND0 


GET QUADRANT INFO 
CHECK Q1 
SHIFT SIGN BYTE 
COUNT DOWN QUADRANT 
DO AGAIN 
RETRIEVE SIGN 
CHECK NEW SIGN 
IF POS USE SAME SIGN 
ELSE USE OTHER 
GO ROUND OFF 









SCIENTIFIC FUNCTIONS PACKAGE 


TSC ASSEMBLER PAGE 


7 


* 

* 


** SPECL 

* THIS ROUTINE HANDLES THE SPECIAL CASES OF 

* TRIG FUNCTIONS. IE. 0, 90, 180, 2 70, AND 360 


048B 

CE 

03 

31 

SPECL 

LDX 


#ZERO 

SPECIAL CASE 0 

048E 

56 




ROR 

B 


CHECK QUADRANT 

048F 

24 

E7 



BCC 


SIN1 

IF 1 OR 3 THEN 0 

0491 

CE 

03 

2R 


LDX 


#ONE 

SET FOR 1 

0494 

20 

E2 


* 

BRA 


SIN1 






* 

** TAN 









* ENTRV POINT 

FOR TANGENT 

0496 

BD 

04 

22 

TAN 

JSR 


TRGFAC 

GO COMPUTE 

0499 

07 




TPA 



SAVE STATUS 

049R 

D6 

75 



LDA 

B 

QUADRT 

GET QVADRANT INFO 

049C 

06 




TAP 



RESTORE STATUS 

049D 

27 

25 



BEQ 


SPECLT 

IF Z, SPECIAL CASE 

049F 

56 




ROR 

B 


CHECK QUADRANT 

04A0 

24 

0D 



BCC 


TAN1 

IF 1 OR 3 DO TAN 

04A2 

CE 

00 

45 


LDX 


#XPRIME 

ELSE DO COTAN 

04R5 

BD 

06 

DE 


JSR 


M0VE2 

MOVE TO XOP 

04A8 

CE 

00 

4C 


LDX 


#VPRIME 


04AB 

8D 

28 



BSR 


TAN3 

GO DIVIDE 

04AD 

20 

02 



BRA 


TAN4 


04RF 

8D 

IB 


TAN1 

BSR 


TAN2 

GO DIVIDE 

04B1 

CE 

00 

20 

TRN4 

LDX 


#RSIGN 

POINT TO RESULT 

04B4 

C6 

50 



LDA 

B 

ttTSBVTE 

GET TAN SIGN BVTE 

04B6 

96 

3A 



LDA 

A 

OVFL 

CHECK OVERFLOW 

04B8 

27 

C0 



BEQ 


TRGSGN 

IF NO GO FIX SIGNS 

04BR 

CE 

03 

38 

INFIN 

LDX 


#INF 

POINT TO INFINITY 

04BD 

86 

FF 



LDA 

A 

#*FF 


04BF 

97 

3fi 



STA 

A 

OVFL 

SET OVERFLOW 

04C1 

7E 

@6 

C7 

TANS 

JMP 


MOVE0 

SET 

04C4 

56 



SPECLT 

ROR 

B 


CHECK QUADRANT 

04C5 

25 

F3 



BCS 


INFIN 

IF 90 OR 270, THEN INFINITY 

04C7 

CE 

03 

31' 


LDX 


#ZERO 

ELSE 0 

04CA 

20 

F5 



BRA 


TANS 


04CC 

CE 

00 

4C 

TAN2 

LDX 


#VPRIME 

POINT TO SORE 

04CF 

BD 

06 

DE 


JSR 


M0VE2 

MOVE TO XOP 

04D2 

CE 

00 

45 


LDX 


#XPRIME 

POINT TO X STORE 

04D5 

BD 

06 

E5 

TRN3 

JSR 


M0VE3 

MOVE TO YOP 

04D8 

7E 

01 

94 

* 

JMP 


FPDIV 

GO DIVIDE 





* 

** TRIGN 








* THIS 

IS THE 

IMPLEMENTATION OF THE ALGORITHM 





* OF TRIGONOMETRIC CORDIC. 

04DB 

CE 

00 

61 

TRIGN 

LDX 


#ANGLE 

POINT TO ANGLE STORE 

04DE 

DF 

6F 



STX 


OPX 

SAVE PTR 

04E0 

BD 

06 

D5 


JSR 


MOVE1 

MOVE ARGUMENT THERE 

04E3 

CE 

03 

4C 


LDX 


#TRIGX 

POINT TO INIT CONST. 

04E6 

BD 

06 

EC 


JSR 


M0VE4 

SET UP 
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8 


04E9 

04EC 

04EF 

04F0 

04F2 

04F4 

04F5 

04F7 

04F9 

04FB 

04FD 

0500 

0502 

0504 

0507 

0509 

050R 

050C 

050E 

0511 

0512 

0513 

0515 

0517 

0518 

051R 

051C 

051E 


CE 03 4C 
BD 06 F3 
4F 

97 6B 
97 6D 
43 

97 6fl 
97 6C 
86 01 
97 71 
CE 03 52 
DF 68 
8D ID 
BD 05 8F 
86 09 
36 

8D 2B 
8D 3D 
BD 05 IF 
32 
4fl 

26 F4 

96 71 
4C 

97 71 
81 09 
26 E6 
39 


TRIG 


TRIG1 

TRIG2 


TRIG4 


LDX 

JSR 

CLR 

STR 

STR 

COM 

STR 

STR 

LDR 

STR 

LDX 

STX 

BSR 

JSR 

LDR 

PSH 

BSR 

BSR 

JSR 

PUL 

DEC 

BNE 

LDR 

INC 

STR 

CMP 

BNE 

RTS 


R 

R 

fl 

R 

R 

fl 

fl 

R 


SET FOR V ADDITION 


SET FOR X SUBTRACTION 
SET FOR ANGLE SUBTRACTION 

SET ITERATION COUNTER 


fl 

R 

fl 

R 

fl 

R 


#TRIGX 
M0VE5 

VOPN 
LSTSGN 

XOPN 
ROPN 
#01 
ITER 

#ANGFRC-1 POINT TO ANGLE FRCTOR 
RFRCTX STORE POINTER 

NEWRN1 COMPUTE NEW ANGLE 

NEXRNG GET TO NEXT FACTOR 

#9 SET FOR 9 ITERATIONS 

SAVE 

NEWOPN SET NEW OPERATIONS 
NEWXV CALCULATE NEW X AND V 

NEWRNG COMPUTE NEW ANGLE 

GET ITERATION 
ONCE DONE 
CHECK IF DONE 
GET COUNT 


TRIG2 

ITER 

ITER 

#9 

TRIG1 


BUMP ITERATION COUNT 
CHECK DONE ? 

CHECK IF DONE 
DONE 


TRIGS 
* 

* 

** NEWANG 

* THIS ROUTINE CALCULATES THE NEW ANGLE BASED 

* ON THE SIGN DETERMINANT FOR CORDIC. 


051F 

DE 

68 


NEWANG 

LDX 


RFACTX 

GET ANGLE POINTER 

0521 

BD 

06 

E5 

NEWflNl 

JSR 


M0VE3 

MOVE IT 

0524 

CE 

00 

61 


LDX 


#ANGLE 

POINT TO ANGLE ACC. 

0527 

BD 

06 

DE 


JSR 


M0VE2 

SET UP 

052R 

96 

6C 



LDR 

fl 

AOPN 

GET ANGLE OPERATION <+ OR -> 

052C 

97 

33 



STfl 

fl 

VSIGN 

FIX UP THE SIGN ACCORDINGLY 

052E 

BD 

01 

03 


JSR 


FPADD 

GO ADD TOGETHER 

0531 

CE 

00 

61 

NEW1 

LDX 


#RNGLE 

POINT TO ANGLE STORE 

0534 

7E 

06 

D5 


JMP 


MOVE1 

RESTORE NEW VALUE 


* 

* 

** NEWOPN 

* THIS ROUTINE SELECTS NEW OPERATIONS FOR X,V 

* AND ANGLE BASED ON THE SIGN DETERMINANT. 

* OPX HOLDS THE POINTER TO THE DETERMINANT. 

GET OPERATION POINTER 
GET NEW SIGN 
COMPARE WITH LAST SIGN 
IF SAME/ DON'T CHANGE OPER. 
SAVE FOR NEXT TIME 


0537 

DE 

6F 

NEWOPN 

LDX 

OPX 

0539 

R6 

00 

NEWOP1 

LDA fl 

0j X 

053B 

91 

6D 

NEW0P3 

CMP A 

LSTSGN 

053D 

27 

0B 


BEQ 

NEW0P2 

053F 

97 

6D 


STA fl 

LSTSGN 

0541 

73 

00 6fl 

NEW0P4 

COM 

XOPN 
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0544 

73 

00 

6B 


COM 

YOPN 


0547 

73 

00 

6C 


COM 

ROPN 

CHANGE OPERATIONS 

054R 

39 



NEW0P2 

* 

RTS 







* 

** NEWXY 







* THIS 

ROUTINE 

CALCULATES THE NEW X AND Y VALUES 





* FOR THE CORDIC ALGORITHM BASED ON THE SIGN 





* DETERMINANTS 

FOR THE INDIVIDUAL QUANTITIES. 

054B 

CE 

00 

45 

NEWXY 

LDX 

#XPRIME 

POINT TO X 

054E 

BD 

06 

DE 


JSR 

M0VE2 

MOVE TO XOP 

0551 

CE 

00 

4C 


LDX 

#VPRIME 

POINT TO Y 

0554 

BD 

06 

E5 


JSR 

M0VE3 

MOVE TO VOP 

0557 

96 

39 



LDA A 

YEX 

GET EXPONENT 

0559 

90 

71 



SUB R 

ITER 

SCALE FOR ITERATION 

055B 

97 

39 



STR fl 

YEX 

PUT BACK 

055D 

96 

6R 



LDR R 

XOPN 

CHECK X OPERATION 

055F 

2fl 

03 



BPL 

NEWXY1 


0561 

73 

00 

33 


COM 

YSIGN 

CHANGE SIGNS 

0564 

BD 

01 

03 

NEWXV1 

JSR 

FPRDD 

GO ADD IN 

0567 

CE 

00 

45 


LDX 

#XPRIME 


056R 

BD 

06 

E5 


JSR 

M0VE3 

MOVE TO VOP 

056D 

CE 

00 

4C 


LDX 

#VPRIME 


0570 

BD 

06 

DE 


JSR 

M0VE2 

MOVE TO XOP 

0573 

CE 

00 

45 


LDX 

#XPRIME 


0576 

BD 

06 

D5 


JSR 

MOVE1 

MOVE NEW VALUE 

0579 

96 

39 



LDR fl 

YEX 

GET EXPONENT 

057B 

90 

71 



SUB R 

ITER 

SCALE FOR ITERATION 

057D 

97 

39 



STR fl 

YEX 

PUT BACK 

057F 

96 

6B 



LDR fl 

YOPN 

GET OPERATION 

0581 

2fl 

03 



BPL 

NEWXY2 


0583 

73 

00 

33 


COM 

YSIGN 


0586 

BD 

01 

03 

NEWXV2 

JSR 

FPRDD 

GO COMPUTE NEW VALUE 

0589 

CE 

00 

4C 


LDX 

4VPRIME 


058C 

7E 

06 

D5 

* 

JMP 

MOVE1 

RESTORE NEW VALUE 





* 

** NEXANG 







* THIS 

SECTION 

MOVES THE 

POINTER TO THE NEXT 





* ANGLE 

FACTOR. 



058F 

86 

06 


NEXANG 

LDA A 

*6 

LOAD OFFSET 

0591 

9B 

69 



ADD R 

RFRCTX+1 

ADD IN 

0593 

97 

69 



STR fl 

RFRCTX+1 

SAVE BACK 

0595 

96 

68 



LDR R 

RFRCTX 

GET MS BYTE 

0597 

89 

00 



RDC R 

#0 

RDD IN CARRY 

0599 

97 

68 



STR R 

RFRCTX 

STORE BACK 

059B 

39 



* 

RTS 







★if RRCCOS 







* ENTRY 

POINT FOR ARCCOSINE 

059C 

8D 

21 


RRCCOS 

BSR 

RRC 

GO DO ARC FUNCTION 

059E 

BD 

06 

E5 


JSR 

M0VE3 

MOVE TO YOP 

05R1 

96 

6E 



LDR fl 

SIGN 

GET SIGN 
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05R3 

97 

33 



STR 

R 

VSIGN 

SET SIGN 

05R5 

CE 

03 

15 


LDX 


#NINETV 


05R8 

BD 

06 

DE 


JSR 


M0VE2 

SET X=90 

05RB 

BD 

01 

00 


JSR 


FPSUB 

SUBTRACT V FROM 90 

05RE 

CE 

00 

20 


LDX 


#RSIGN 


05B1 

R6 

00 



LDR 

R 

0, X 

GET THE SIGN 

05B3 

36 




PSH 

fl 


SAVE SIGN 

05B4 

7E 

06 

82 

♦ 

JMP 


ATRN3 

GO FIX 





4c 

4.4. RRCSIN 








4< ENTRV 

POINT 

FOR ARCSINE 

05B7 

8D 

06 


RRCSIN 

BSR 


ARC 

GO DO ARC FUNCTION 

05B9 

96 

6E 



LDR 

R 

SIGN 

GET SIGN 

05BB 

36 




PSH 

fl 


SAVE 

05BC 

7E 

06 

82 

4< 

JMP 


ATRN3 

GO FIX 





4< 

4<4. ARC 









4. INVERSE TRIGONOMETRIC 

CORDIC 

05BF 

96 

2C 


ARC 

LDR 

R 

XSIGN 

GET SIGN 

05C1 

97 

6E 



STR 

fl 

SIGN 

SAVE SIGN 

05C3 

7F 

00 

2C 


CLR 


XSIGN 

SET + 

05C6 

CE 

03 

2fl 


LDX 


#ONE 


05C9 

BD 

03 

EC 


JSR 


EXTRCT 

CHECK >1. 0 

05CC 

CE 

00 

20 


LDX 


#RSIGN 

POINT TO REMAINDER 

05CF 

96 

59 



LDR 

fl 

ZPRIME+6 


05D1 

81 

01 



CMP 

fl 

#1 

IF SO, ERROR 

05D3 

22 

0C 



BHI 


RRC5 


05D5 

96 

54 



LDR 

R 

ZPRIME+1 

CHECK FACTOR 

05D7 

27 

0F 



BEQ 


ARC3 

ZERO? 

05D9 

81 

01 



CMP 

fl 

*1 

CHECK FACTOR 

05DB 

22 

04 



BHI 


ARC5 

TOO MANV? 

05DD 

96 

21 



LDR 

R 

RSIGN+1 

CHECK REMAINDER 

05DF 

27 

03 



BEQ 


RRC4 

IF 1. 0, SPECIAL CASE 

05E1 

7E 

08 

F5 

RRC5 

JMP 


ILLEGL 


05E4 

CE 

03 

15 

RRC4 

LDX 


#NINETV 


05E7 

39 




RTS 



DONE 

05E8 

96 

21 


RRC3 

LDR 

R 

RSIGN+1 

CHECK FOR 0. 0 

05ER 

26 

01 



BNE 


ARC6 


05EC 

39 




RTS 




05ED 

CE 

00 

53 

RRC6 

LDX 


#ZPRIME 


05F0 

BD 

06 

D5 


JSR 


MOVEl 

SAVE THE SCALED ARG. 

05F3 

CE 

03 

52 


LDX 


#RNGFAC-: 

1 

05F6 

DF 

68 



STX 


AFRCTX 

SAVE NEW PTR 

05F8 

BD 

@6 

Ffi 


JSR 


M0VE6 

SET ANGLE = 45 DEG. 

05FB 

CE 

03 

4C 


LDX 


#TRIGX 


05FE 

BD 

06 

EC 


JSR 


M0VE4 

SET X 

0601 

CE 

03 

4C 


LDX 


#TRIGX 


0604 

BD 

06 

F3 


JSR 


MOVE5 

SET V 

0607 

86 

01 



LDR 

fl 

#01 


0609 

97 

71 



STR 

fl 

ITER 

SET UP ITERATION COUNTER 

060B 

8D 

82 


RRC1 

BSR 


NEXANG 

GO GET NEXT ANGLE 

060D 

86 

09 



LDR 

fl 

#9 
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060F 

0610 

0613 

0616 

0619 

061C 

061F 

0620 

0622 

0624 

0626 

0628 

0629 

062B 

062D 

062E 

0630 

0633 

0636 

0637 

0638 

063A 

063C 

063D 

063F 

0641 

0643 

0646 


36 

CE 00 53 
BD 06 DE 
CE 00 4C 
BD 06 E5 
BD 01 00 
5F 

96 45 
26 04 
96 20 
2A 01 
53 

D7 6B 
D7 6C 
53 

D7 6A 
BD 05 4B 
BD 05 IF 
32 
4A 

26 D5 

96 71 
4C 

97 71 
81 09 
26 C8 

CE 00 61 
39 


ARC2 


0647 

0649 

064A 

064D 

0650 

0652 

0654 

0657 

065A 

065D 

0660 

0662 

0665 

0668 

066A 

066B 

066D 

066F 

0671 

0673 

0674 

0676 


96 2C 
36 

7F 00 2C 
CE 00 2C 
A6 01 
27 44 
BD 06 F3 
CE 03 2A 
BD 06 EC 
CE 03 52 
DF 68 
BD 06 FA 
CE 00 4C 
DF 6F 
4F 

97 6C 
97 6R 
97 71 
97 6D 
43 

97 6B 
BD 05 4B 


ARCC2 


ARCC5 


PSH 

A 


SET FOR 9 LOOPS 

LDX 


#ZPRIME 

POINT TO SCALED ARG. 

JSR 


M0VE2 


LDX 


#VPRIME 


JSR 


M0VE3 

SET UP FOR COMPARISON 

JSR 


FPSUB 

GO SUBTRACT 

CLR 

B 



LDA 

A 

XPRIME 

CHECK SIGN OF X 

BNE 


ARCC3 

IF MINUS, REVERSE 

LDA 

A 

RSIGN 

GET COMPARISON INDICA' 

BPL 


ARCC2 

COM 

B 


CHANGE 

STA 

B 

VOPN 


STA 

B 

AOPN 


COM 

B 



STA 

B 

XOPN 

FIX OPERATORS 

JSR 


NEWXV 

COMPUTE X & V CHANGES 

JSR 


NEWANG 

COMPUTE NEW ANGLE 

PUL 

A 



DEC 

A 


DECREMENT COUNTER 

BNE 


ARC2 

IF NOT DONE, DO AGAIN 

LDA 

A 

ITER 


INC 

A 


KICK ITERATION COUNT 

STA 

A 

ITER 


CMP 

A 

#9 

CHECK IF DONE 

BNE 


ARC1 


LDX 


#ANGLE 

POINT TO ANSWER 

RTS 



DONE 


* 

* 


** ARCTAN 

* ENTRY POINT FOR ARCTANGENT 


LDA 

A 

XSIGN 


PSH 

A 


SAVE SIGN 

CLR 


XSIGN 

SET SIGN « + 

LDX 


#XSIGN 


LDA 

A 

1, X 

GET FIRST BYTE 

BEQ 


ROUND 

IF 0, SPECIAL CASE 

JSR 


M0VE5 

MOVE ARG. TO V 

LDX 


#ONE 


JSR 


M0VE4 

SET X=1 

LDX 


#ANGFAC-1 


STX 


AFACTX 

STORE PTR 

JSR 


M0VE6 

SET ANGLE=45 

LDX 


#YPRIME 


STX 


OPX 


CLR 

A 



STA 

A 

AOPN 


STA 

A 

XOPN 


STA 

A 

ITER 


STA 

A 

LSTSGN 

SET UP CONSTANTS 

COM 

A 



STA 

A 

VOPN 

SET V SUBTRACT 

JSR 


NEWXV 

GET INITIAL X AND V 


11 
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0679 

7C 

00 

71 


INC 


ITER 

SET COUNTER 

067C 

BD 

05 

04 


JSR 


TRIG1 

GO COMPUTE 

067F 

CE 

00 

61 


LDX 


#ANGLE 

POINT TO RESULT 

0682 

96 

76 


RTRN3 

LDR 

A 

MODE 

CHECK MODE 

0684 

27 

0F 



BEQ 


ATAN5 

IF DEGREE/ DONE 

0686 

BD 

06 

DE 


JSR 


M0VE2 

PUT ANSWER IN XOP 

0689 

CE 

03 

45 


LDX 


#RTODEG 


068C 

BD 

06 

E5 


JSR 


M0VE3 

SET V* CONV. CONST. 

068F 

BD 

01 

94 


JSR 


FPDIV 

GO SCALE 

0692 

CE 

00 

20 


LDX 


#RSIGN 

POINT TO ANSWER 

0695 

20 

01 


RTRN5 

* 

BRA 


ROUND 






* 

** ROUND 








* THIS 

IS THE 

ROUNDING 

PROCESSOR. THE ROUNDING 





* CONSTANT IS 

RCON. 


0697 

36 



ROUND0 

PSH 

A 


SAVE THE SIGN 

0698 

R6 

06 


ROUND 

LDA 

A 

6/ X 

GET EXPONENT 

069R 

36 




PSH 

A 


SAVE 

069B 

BD 

06 

C7 


JSR 


MOVE0 

MOVE TARGET TO AC 

069E 

CE 

03 

3F 

ROUND1 

LDX 


#RCON 


06R1 

8D 

42 



BSR 


M0VE3 

MOVE ROUNDING CONSTANT 

06R3 

BD 

01 

CD 


JSR 


BCDADD 

GO ADD IN ROUNDING 

06R6 

32 




PUL 

A 


GET EXPONENT 

06R7 

97 

26 



STA 

A 

RSIGN+6 

INSTALL 

06R9 

32 




PUL 

A 


GET SIGN 

06RR 

97 

20 



STA 

A 

RSIGN 

SET SIGN 

06RC 

96 

24 



LDA 

A 

RSIGN+4 


06RE 

84 

F0 



AND 

A 

#*F0 

MASK OFF 

06B0 

97 

24 



STA 

A 

RSIGN+4 

STORE BACK 

06B2 

4F 




CLR 

A 



06B3 

97 

25 



STA 

A 

RSIGN+5 

ZERO OUT LAST BVTE 

06B5 

BD 

01 

4R 


JSR 


NORM 

GO NORMALIZE 

06B8 

5F 




CLR 

B 



06B9 

96 

26 



LDR 

A 

RSIGN+6 

GET EXPONENT 

06BB 

81 

63 



CMP 

A 

**63 

CHECK EXPONENT FOR >63 

06BD 

2E 

04 



BGT 


ERROR 


06BF 

81 

9C 



CMP 

A 

#*9C 

CHECK <-63 

06C1 

2E 

01 



BGT 


ANSOK 


06C3 

53 



ERROR 

COM 

B 



06C4 

D7 

3R 


RNSOK 

STA 

B 

OVFL 

SET OVERFLOW 

06C6 

39 



♦ 

RTS 



DONE 





* 

** THIS 

: SECTION OF CODE 

PERFORMS ALL OF THE 





* OPERAND TRANSPORTATION. 





'I' 

* MOVE 

X TO 

RESULT 


06C7 

DF 

41 


MOVE0 

STX 


XTEMP2 

SAVE SOURCE PTR. 

06C9 

CE 

00 

20 


LDX 


#RSIGN 

POINT TO RESULT 

06CC 

DF 

3F 


MOVE01 

STX 


XTEMP 

SAVE DESTINATION PTR 

06CE 

DE 

41 



LDX 


XTEMP2 


06D0 

C6 

07 


MOVE02 

LDA 

B 

#7 

SET FOR 7 BYTES 

06D2 

7E 

02 

62 


JMP 


XOPTOl 

MOVE IT 
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* 

* MOVE RESULT TO X 


06D5 

DF 

3F 


MOVE1 

STX 

XTEMP 

SAVE DESTINATION PTR 

06D7 

CE 

00 

20 


LDX 

ttRSIGN 

POINT TO RESULT 

06DA 

DF 

41 



STX 

XTEMP2 

SET SOURCE PTR 

06DC 

20 

F2 


li# 

BRA 

MOVE02 






* MOVE X TO 

XOP 


06DE 

DF 

41 


M0VE2 

STX 

XTEMP2 

SAVE SOURCE PTR 

06E0 

CE 

00 

2C 


LDX 

#XSIGN 

POINT TO DESTINATION 

06E3 

20 

E7 



BRA 

MOVE01 






* MOVE X TO 

VOP 


06E5 

DF 

41 


M0VE3 

STX 

XTEMP2 

SAVE SOURCE PTR 

06E7 

CE 

00 

33 


LDX 

#VSIGN 

POINT TO DESTINATION 

06EA 

20 

E0 



BRA 

MOVE01 






* MOVE X TO 

XPRIME 


06EC 

DF 

41 


M0VE4 

STX 

XTEMP2 

SAVE SOURCE PTR 

06EE 

CE 

00 

45 


LDX 

#XPRIME 

POINT TO DESTINATION 

06F1 

20 

D9 



BRA 

MOVE01 

GO MOVE 





* MOVE X TO 

VPRIME 


06F3 

DF 

41 


M0VE5 

STX 

XTEMP2 

SAVE SOURCE POINTER 

06F5 

CE 

00 

4C 


LDX 

#VPRIME 

POINT TO DESTINATION 

06F8 

20 

D2 



BRA 

MOVE01 

MOVE IT 





* MOVE X TO 

ANGLE 


06FA 

DF 

41 


M0VE6 

STX 

XTEMP2 

SAVE SOURCE 

06FC 

CE 

00 

61 


LDX 

#ANGLE 

POINT 

06FF 

20 

CB 


* 

BRA 

MOVE01 






He 

** XTOV 







* THIS 

SECTION 

PERFORMS 

THE FUNCTION Xh«h«Y 





He OR X 

TO V POWER 


0701 

CE 

00 

33 

XTOV 

LDX 

#VSIGN 

POINT TO POWER 

0704 

8D 

Cl 



BSR 

MOVE0 


0706 

CE 

00 

5A 

XTOY0 

LDX 

#TPRIME 


0709 

8D 

CA 



BSR 

MOVE1 

SAVE IN TPRIME 

070B 

CE 

00 

2C 


LDX 

#XSIGN 

POINT TO ARG 

070E 

A6 

01 



LDA A 

±, X 

GET MS BYTE 

0710 

26 

03 



BNE 

XT0V3 


0712 

7E 

07 

C3 


JMP 

SINH1 


0715 

BD 

08 

36 

XT0V3 

JSR 

NATLOG 

TAKE LN<X) 

0718 

96 

72 



LDA A 

NLEGAL 

CHECK ILLEGAL OPER. 

071A 

27 

01 



BEQ 

XT0V2 


071C 

39 



XTOV1 

RTS 



071D 

96 

3fl 


XT0V2 

LDA A 

OVFL 

CHECK OVERFLOW 

071F 

26 

FB 



BNE 

XTOV1 

. 

0721 

CE 

00 

2C 


LDX 

#XSIGN 


0724 

8D 

AF 



BSR 

MOVE1 

MOVE RESULT TO X 

0726 

CE 

00 

5A 


LDX 

#TPRIME 


0729 

8D 

BA 



BSR 

M0VE3 

MOVE POWER TO Y 
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072B 

BD 

01 

80 


JSR 

FPMULT 

GO MULTIPLV 

072E 

96 

3A 



LDA A 

OVFL 

CHECK OVERFLOW 

0730 

26 

EA 



BNE 

XTOV1 


0732 

CE 

00 

2C 


LDX 

#XSIGN 


0735 

8D 

9E 



BSR 

MOVE1 

MOVE RESULT BACK TO X 

0737 

20 

26 


*< 

BRA 

EXP 

GO EXPONENTIATE 





* 

** SQRT 








* THIS 

ROUTINE 

IMPLEMENTS SQRTCX) 





* AS SPECIAL CASE OF X+*Y 

0739 

CE 

03 

31 

SQRT 

LDX 

#ZERO 


073C 

8D 

89 



BSR 

MOVE0 


073E 

86 

05 



LDA A 

#$05 


0740 

97 

21 



STA A 

RSIGN+1 

SET RESULT TO 0. 5 

0742 

20 

C2 


* 

BRA 

XTOV0 






* 

** INVERS 







* THIS 

ROUTINE 

IMPLEMENTS 1/X 

0744 

CE 

00 

2C 

INVERS 

LDX 

#XSIGN 

POINT TO ARG 

0747 

8D 

9C 



BSR 

M0VE3 

MOVE TO VOP 

0749 

CE 

03 

2A 


LDX 

#ONE 

POINT TO ONE 

074C 

8D 

90 



BSR 

M0VE2 

SET XOP=l 

074E 

7E 

01 

94 

* 

JMP 

FPDIV 

GO DIVIDE 





* 

** ALOG10 







* ENTRV 

’ POINT 

FOR COMMON 

ANTILOG COR 10**X> 

0751 

CE 

03 

07 

ALOG10 

LDX 

#LN10 

POINT TO CONST 

0754 

8D 

8F 



BSR 

M0VE3 

SET Y=LN10 

0756 

BD 

01 

80 


JSR 

FPMULT 

GO SCALE 

0759 

CE 

00 

2C 


LDX 

#XSIGN 


075C 

BD 

06 

D5 

* 

JSR 

MOVE1 

MOVE SCALED ARGUMENT 





* 

** EXP 








* IMPLEMENTATION OF E**X 

CEXPONENTIATION) 

075F 

96 

32 


EXP 

LDA A 

XSIGN+6 

GET EXPONENT OF ARG 

0761 

81 

03 



CMP A 

#3 

CHECK FOR OVFL 

0763 

2F 

03 



BLE 

EXP1 

IF SO/ OK 

0765 

7E 

04 

BA 

EXP11 

JMP 

INFIN 


0768 

81 

F9 


EXP1 

CMP A 

#$F9 

CHECK <-6 

076A 

2E 

06 



BGT 

EXP2 


076C 

CE 

03 

2A 

EXP10 

LDX 

#ONE 


076F 

7E 

06 

C7 

EXP12 

JMP 

MOVE0 

SET ANSWER 

0772 

CE 

03 

07 

EXP2 

LDX 

#LN10 


0775 

BD 

03 

EC 


JSR 

EXTRCT 

REMOVE FACTORS OF LN10 

0778 

CE 

00 

2C 


LDX 

#XSIGN 


077B 

BD 

06 

D5 


JSR 

MOVE1 

MOVE REMAINDER TO XOP 

077E 

BD 

07 

D9 


JSR 

HVP 

GO DO HYPERBOLIC CORDIC 

0781 

CE 

00 

45 


LDX 

#XPRIME 


0784 

BD 

06 

DE 


JSR 

M0VE2 

SET UP XOP 

0787 

CE 

00 

4C 


LDX 

#VPRIME 











mm 
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078R 

BD 

06 

E5 


JSR 


M0VE3 

SET UP YOP 

078D 

BD 

01 

03 


JSR 


FPRDD 

EXP=SINH+COSH 

0790 

D6 

59 



LDR 

B 

ZPRIME+6 

GET FACTOR 

0792 

Cl 

02 



CMP 

B 

#2 

CHECK EXPONENT 

0794 

23 

09 



BLS 


EXP21 


0796 

CE 

03 

31 


LDX 

" 

#ZERO 


0799 

96 

53 



LDR 

A 

ZPRIME 

GET SIGN 

079B 

2B 

D2 



BMI 


EXP12 

IF MINUS THEN 0 

079D 

20 

C6 



BRA 


EXP11 

ELSE INFINITY 

079F 

96 

54 


EXP21 

LDR 

A 

ZPRIME+1 


07A1 

56 




ROR 

B 



07A2 

25 

0C 



BCS 


EXPOK1 


07A4 

48 




ASL 

A 



07A5 

16 




TAB 




07A6 

48 




ASL 

A 



07R7 

48 




ASL 

A 



07A8 

IB 




ABA 



MULTIPLY BY 10 

07A9 

D6 

55 



LDR 

B 

ZPRIME+2 

GET ONES 

07AB 

54 




LSR 

B 



07RC 

54 




LSR 

B 



07AD 

54 




LSR 

B 



07AE 

54 




LSR 

B 


MOVE TO LS HALF 

07AF 

IB 




ABA 



MERGE 

07B0 

D6 

53 


EXPOK1 

LDR 

B 

ZPRIME 

GET SIGN 

07B2 

27 

01 



BEQ 


ADDON 

IF + JUST ADD 

07B4 

40 




NEG 

A 


CHANGE SIGN 

07B5 

9B 

26 


ADDON 

ADD 

A 

RSIGN+6 

ADD IN 

07B7 

97 

26 



STR 

A 

RSIGN+6 

PUT BACK 

07B9 

CE 

00 

20 


LDX 


#RSIGN 

POINT TO RESULT 

07BC 

20 

05 


* 

* 

* 

BRA 


SINH1 

GO ROUND 






** SINH 








* ENTRY 

POINT 

FOR HYPERBOLIC SINE 

07BE 

8D 

19 


SINH 

BSR 

HYP 

CALCULATE 

07C0 

CE 

00 

4C 


LDX 

4YPRIME 

POINT TO ANSWER 

07C3 

A6 

00 


SINH1 

LDR A 

0 , X 

GET SIGN 

07C5 

7E 

06 

97 


JMP 

ROUND0 

GO ROUND 


* 

* 

** COSH 
* ENTRV 


POINT FOR HYPERBOLIC COSINE 


07C8 

8D 

0F COSH 

BSR 

HYP 

CALCULATE HYPERBOLIC 

07CA 

CE 

00 45 

LDX 

#XPRIME 

POINT TO ANSWER 

07CD 

20 

F4 

BRA 

SINH1 

MOVE IT 


* 

* 

** TRNH 
* ENTRY 


POINT FOR HYPERBOLIC TANGENT 


07CF 

8D 

08 

TRNH 

BSR 

HYP 

GO CALCULATE 

07D1 

BD 

04 

CC 

JSR 

TRN2 

TRNH=SINH/COSH 

07D4 

CE 

00 

20 

LDX 

4RSIGN 

POINT TO RESULT 

07D7 

20 

EA 


BRA 

SINH1 

GO ROUND 


15 
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* 

* 

** HVP 









* THIS 

ROUTINE 

IMPLEMENTS 

; HYPERBOLIC CORDIC. 

07D9 

CE 

03 

89 

HVP 

LDX 


#HYPCON 

POINT TO CONSTANT 

07DC 

BD 

06 

EC 


JSR 


M0VE4 

SET UP XPRIME 

07DF 

CE 

03 

31 


LDX 


#ZERO 


07E2 

BD 

06 

F3 


JSR 


MOVES 

SET VPRIME=0 

07E5 

CE 

00 

2C 


LDX 


ttXSIGN 

POINT TO ARGUMENT 

07E8 

BD 

06 

FA 


JSR 


M0VE6 

MOVE TO ANGLE 

07EB 

CE 

00 

61 


LDX 


ttANGLE 


07EE 

DF 

6F 



STX 


OPX 

SET OPERATION DETERMINANT 

07F0 

CE 

03 

8F 


LDX 


#HYPANG-1 


07F3 

DF 

68 



STX 


AFACTX 

SET ANGLE FACTOR POINTER 

07F5 

4F 




CLR 

A 



07F6 

97 

6D 



STA 

A 

LSTSGN 

SET LAST SIGN 

07F8 

97 

6A 



STA 

A 

XOPN 

SET FOR ADD ON X 

07FA 

97 

6B 



STA 

A 

VOPN 

SET FOR ADD ON Y 

07FC 

43 




COM 

A 



07FD 

97 

6C 



STA 

A 

AOPN 

SET FOR SUB. ON ANGLE 

07FF 

86 

01 


HVP0 

LDA 

A 

#1 


0801 

97 

71 



STA 

A 

ITER 

SET ITERATION COUNTER 

0803 

86 

16 


HVP1 

LDA 

A 

#22 


0805 

36 



HVP2 

PSH 

A 



0806 

BD 

05 

37 


JSR 


NEWOPN 

SET NEW OPERATIONS 

0809 

BD 

05 

4B 


JSR 


NEWXY 

CALCULATE NEW X AND Y 

080C 

BD 

05 

IF 


JSR 


NEWANG 

CALCULATE NEW ANGLE 

080F 

32 




PUL 

A 



0810 

4A 




DEC 

A 


DECREMENT COUNTER 

0811 

26 

F2 



BNE 


HVP2 


0813 

BD 

05 

8F 


JSR 


NEXANG 

POINT TO NEXT FACTOR 

0816 

96 

71 



LDA 

A 

ITER 


0818 

4C 




INC 

A 


KICK ITERATION COUNT 

0819 

97 

71 



STA 

A 

ITER 


081B 

81 

0A 



CMP 

A 

#10 

CHECK IF DONE 

081D 

26 

E4 



BNE 


HVP1 

LOOP 

081F 

39 



* 

RTS 



DONE 





* 

** LOG10 








* IMPLEMENTATION OF COMMON LOGARITHM <BASE 10> 

0820 

8D 

14 


LOG10 

BSR 


NATLOG 

GO DO NATLOG 

0822 

CE 

00 

2C 


LDX 


#XSIGN 


0825 

BD 

06 

D5 


JSR 


MOVE1 

MOVE RESULT TO X 

0828 

CE 

03 

07 


LDX 


#LN10 


082B 

BD 

06 

E5 


JSR 


M0VE3 

SET Y= LN10 

082E 

BD 

01 

94 


JSR 


FPDIV 

SCALE 

0831 

CE 

00 

20 

LOG10A 

LDX 


#RSIGN 

POINT TO RESULT 

0834 

20 

8D 



BRA 


SINH1 

GO ROUND 


* 


* 

** NATLOG 

* IMPLEMENTATION OF NATURAL LOGARITHM <BASE E> 
0836 CE 00 2C NATLOG LDX #XSIGN 
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0839 

BD 

06 

F3 


JSR 


MOVES 

SAVE IN YPRIME 

083C 

CE 

03 

2A 


LDX 


#ONE 


083F 

BD 

06 

E5 


JSR 


M0VE3 

SET Y=1 

0842 

BD 

01 

00 


JSR 


FPSUB 

SUBTRACT 1 

0845 

96 

21 



LDA 

A 

RSIGN+1 

GET MS BYTE 

0847 

26 

06 



BNE 


NATL2 


0849 

CE 

03 

31 


LDX 


#ZERO 

SET ZERO 

084C 

7E 

07 

C3 


JMP 


SINH1 

GO FIX 

084F 

CE 

03 

2A 

NATL2 

LDX 


#ONE 


0852 

BD 

06 

DE 


JSR 


M0VE2 

USE CLEAR TRICK 

0855 

96 

52 



LDA 

A 

VPRIME+6 

GET ARGS EXP. 

0857 

2A 

04 



BPL 


SIGNOK 

IF + NO TRICKS 

0859 

40 




NEG 

A 


IF MINUS MAKE PLUS 

085A 

73 

00 

2C 


COM 


XSIGN 

CHANGE SIGNS TO COMP. 

085D 

C6 

FF 


SIGNOK 

LDA 

B 

#*FF 

SET -1 

085F 

5C 



SUBT 

INC 

B 


KICK COUNTER 

0860 

80 

0A 



SUB 

A 

*10 

TAKE OUT TEN 

0862 

24 

FB 



BCC 


SUBT 

IF NO BORROW OK 

0864 

8B 

0A 



ADD 

A 

*10 

ELSE ADD BACK 

0866 

97 

2D 



STA 

A 

XSIGN+1 

STORE ONES 

0868 

5D 




TST 

B 


CHECK IF HAVE TENS 

0869 

27 

0C 



BEQ 


FACTOK 

IF NOT, ALL DONE FOOLING 

086B 

D7 

2D 



STA 

B 

XSIGN+1 

SAVE ONES 

086D 

48 




ASL 

A 



086E 

48 




ASL 

A 



086F 

48 




ASL 

A 



0870 

48 




ASL 

A 


GET TO MS HALF 

0871 

97 

2E 



STA 

A 

XSIGN+2 

SAVE ONES 

0873 

86 

02 



LDA 

A 

*02 

SET EXP=2 

0875 

97 

32 



STA 

A 

XEX 

STORE IT 

0877 

CE 

03 

07 

FACTOK 

LDX 


*LN10 


087A 

BD 

06 

E5 


JSR 


M0VE3 

SET Y=LN10 

087D 

BD 

01 

80 


JSR 


FPMULT 

GO SCALE 

0880 

CE 

00 

53 


LDX 


#ZPRIME 


0883 

BD 

06 

D5 


JSR 


MOVE1 

SAVE SCALING FACTOR 

0886 

96 

4D 



LDA 

A 

YPRIME+1 

CHECK FOR ZERO 

0888 

27 

6B 



BEQ 


ILLEGL 

IF 0 ERROR 

088A 

CE 

00 

4C 


LDX 


#YPRIME 


088D 

A6 

00 


INVHVP 

LDA 

A 

0/ X 

GET SIGN 

088F 

2B 

64 



BMI 


ILLEGL 

IF NEGATIVE, ILLEGAL 

0891 

6F 

06 



CLR 


6, X 

SET EXP = 0 

0893 

BD 

06 

DE 


JSR 


M0VE2 

RETRIEVE ARGUMENT 

0896 

CE 

03 

2A 


LDX 


*ONE 


0899 

BD 

06 

E5 


JSR 


M0VE3 

SET Y=1 

089C 

BD 

01 

03 


JSR 


FPADD 


089F 

CE 

00 

45 


LDX 


#XPRIME 


08A2 

BD 

@6 

D5 


JSR 


MOVE1 

SET X=ARG+1 

08A5 

CE 

00 

4C 


LDX 


#YPRIME 


08A8 

BD 

06 

DE 


JSR 


M0VE2 

SET XOP=ARG 

08AB 

CE 

03 

2A 


LDX 


*ONE 


08AE 

BD 

06 

E5 


JSR 


M0VE3 

SET YOP=l 

08B1 

BD 

01 

00 


JSR 


FPSUB 


08B4 

CE 

00 

4C 


LDX 


#YPRIME 


08B7 

DF 

6F 



STX 


OPX 

SET DECISION PTR 
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08B9 

BD 

06 

D5 

08BC 

CE 

03 

31 

08BF 

BD 

06 

FA 

08C2 

4F 



08C3 

97 

6C 


08C5 

97 

6D 


08C7 

43 



08C8 

97 

6B 


08CA 

97 

6A 


08CC 

CE 

03 

8F 

08CF 

DF 

68 


08D1 

BD 

07 

FF 

08D4 

CE 

00 

61 

08D7 

BD 

06 

D5 

08DA 

CE 

03 

23 

08DD 

BD 

06 

E5 

08E0 

BD 

01 

80 

08E3 

CE 

00 

2C 

08E6 

BD 

06 

D5 

08E9 

CE 

00 

53 

08EC 

BD 

06 

E5 

08EF 

BD 

01 

03 

08F2 

7E 

08 

31 


08F5 

86 

FF 

08F7 

97 

72 

08F9 

39 



JSR 


MOVE1 

LDX 


#ZERO 

JSR 


M0VE6 

CLR 

A 


STA 

A 

ROPN 

STA 

A 

LSTSGN 

COM 

A 


STA 

A 

YOPN 

STA 

A 

XOPN 

LDX 


#HYPRNG-1 

STX 


AFACTX 

JSR 


HYPO 

LDX 


WANGLE 

JSR 


MOVE1 

LDX 


#TWO 

JSR 


M0VE3 

JSR 


FPMULT 

LDX 


#XSIGN 

JSR 


MOVE1 

LDX 


#ZPRIME 

JSR 


M0VE3 

JSR 


FPRDD 

JMP 


LOG10A 


* 

* 

** THIS 
ILLEGL 


SET Y=RRG-1 
SET RNG=0 

SET UP OPERATIONS 

SET CONSTANT PTR. 

GO COMPUTE 

SET X=RESULT 

SET Y= 2 
GO SCALE 

GET RESULT 

SET Y= ADDON 
GO ADD IT ON 
GO ROUND 

OPERATION INDICATOR 

SET NOT LEGAL 
DONE 


ROUTINE SETS ILLEGAL 
LDR A #*FF 
STA A NLEGRL 
RTS 
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SVMBOL TRBLE: 


ADDON 07B5 
RNGFRC 0353 
RRC1 060B 
RRC6 05ED 
RRCCOS 059C 
RTRN5 0695 
COS 0459 
EXCEPT 0458 
EXP12 076F 
FRCTOK 0877 
GOTBIT 0482 
HVP2 0805 
INF 0338 
INVHVP 088D 
LOG10R 0831 
MOVE02 06D0 
M0VE5 06F3 
NEWRN1 0521 
NEWOP4 0541 
NEXRNG 058F 
ONE 032R 
OUTS E0CC 
PRT 0935 
ROUND1 069E 
SIN 0460 
SINH1 07C3 
START 0900 
TRN2 04CC 
TESTIT 03CB 
TRGSGN 047A 
TRIG5 051E 
XEX 0032 
XSIGN 002C 
XTOV1 071C 
VOPN 006B 
ZPRIME 0053 


AFACTX 0068 
ANGLE 0061 
ARC2 060F 
ARCC2 0629 
ARCSIN 05B7 
BCDADD 01CD 
COSH 07C8 
EXP 075F 
EXP2 0772 
FPRDD 0103 
GOTIT 03D5 
HVPANG 0390 
INFIN 04BA 
ITER 0071 
LSTSGN 006D 
MOVE1 06D5 
M0VE6 06FA 
NEWANG 051F 
NEWOPN 0537 
NEXDIG 03DD 
OPS 096F 
OVFL 003A 
QUADRT 007-5 
RSIGN 0020 
SIN0 0461 
SPECL 048B 
SUBT 085F 
TRN3 04D5 
TESTSG 047C 
TRIG 04EF 
TRIGN 04DB 
XOP 002D 
XTEMP 003F 
XT0V2 071D 
VPRIME 004C 


ALLOK 03EB 
ANSOK 06C4 
RRC3 05E8 
ARCC3 0628 
ARCTAN 0647 
BVTE E055 
DEGREE 043C 
EXP1 0768 
EXP21 079F 
FPDIV 0194 
HVP 07D9 
HVPCON 0389 
INTDON 03E5 
LN10 0307 
MODE 0076 
M0VE2 06DE 
NATL2 084F 
NEWOP1 0539 
NEWXY 054B 
NINETY 0315 
OPX 006F 
PBYTE 0958 
RCON 033F 
RTODEG 0345 
SIN1 0478 
SPECLT 04C4 
TABOFF 092E 
TAN4 04B1 
TPRIME 005A 
TRIG1 0504 
TRIGX 034C 
XOPN 006R 
XTEMP2 0041 
XT0Y3 0715 
VSIGN 0033 


RLLZER 

03E1 

AOPN 

006C 

ARC4 

05E4 

ARCC5 

0630 

RRGSTR 

0960 

C360 

031C 

E 

030E 

EXP10 

076C 

EXPOK1 

07B0 

FPMULT 

0180 

HYP0 

07FF 

ILLEGL 

08F5 

INTEGE 

03C6 

LORD 

090E 

MOVE0 

06C7 

M0VE3 

06E5 

NATLOG 

0836 

NEW0P2 

054A 

NEWXY1 

0564 

NLEGAL 

0072 

OUTHL 

E067 

PDRTA1 

E07E 

ROUND 

0698 

SIGN 

006E 

SINE 

097D 

SORT 

0739 

TAN 

0496 

TANS 

04C1 

TRGDON 

0488 

TRIG2 

0509 

TSBYTE 

0050 

XOPTOl 

0262 

XTOY 

0701 

YEX 

0039 

ZCHK 

0275 


ALOG10 

0751 

ARC 

05BF 

RRC5 

05E1 

RRCCHK 

0610 

RTRN3 

0682 

C4 

0073 

ERROR 

06C3 

EXP11 

0765 

EXTRCT 

03EC 

FPSUB 

0100 

HYP1 

0803 

INEEE 

E1AC 

INVERS 

0744 

LOG10 

0820 

MOVE01 

06CC 

MOVE4 

06EC 

NEW1 

0531 

NEW0P3 

053B 

NEWXY2 

0586 

NORM 

014A 

OUTHR 

E06B 

PI 

0300 

ROUND0 

0697 

SIGNOK 

085D 

SINH 

07BE 

SSBYTE 

0030 

TAN1 

04RF 

TANH 

07CF 

TRGFAC 

0422 

TRIG4 

0515 

TWO 

0323 

XPRIME 

0045 

XTOY0 

0706 

VOP 

0034 

ZERO 

0331 


19 









20 

SI 0400760085 

S11303000003141592650100023025850901000200 
S1130310718281830100090C0000000700Q3600073 
S11303 2000000300020000000001000100000000C2 
S113033001000000000000000009999999996 300E8 
S1130340000000050000057295779502000675838C 
S11303506159000450000000020571059314010561 
S113036072938698000572957604 F F0572957789D5 
1130370FE0572957795 F00572957795FC05729546 
11303807795FB0572957795FA000111 81379301F2 
11303900100335348000100003333FF0100000023 
Si1303A033FE0100000000F00100000000FC01001C 
S11303B0000000FB0100000000FA01 00000000F949 
S11303C00100000000F8A606C6050881002F0608F3 
SI1303D0 5A800220F6260AA60084 F0A700085A27AD 
S11303E0046F0020F8A6002A026F0039DF73BD06EF 
S11303FOE5BD0194CE00208DCDCE0053PD06D5CEF3 
S1130400002CBD06ECCE002CBD06D5DF73BD06E582 
SI130410BD0180CE0033PD06D5CE0045BD06DE7ECF 
S11304200100962C976E7F002C9676270FCE0345FD 
SI130430BD06E5BD0180CE002CBD06D5CE031C8DC6 
S1130440ABCE002CBD06D5CE03158DA09654977562 
S113045096212704BD04DB433986017F002C20014B 
S11304604F368DBE07330B75C403D77506271CCE04 
S1130470004C562403 CE0045C63096752704584 ACE 
S113048020FA966E5D2A01437E0697CE03315624E8 
SI130490E7CE032A20E2BD042207D6750627255697 
S11304A0240DCE0045BD060ECE004C8D2820028DE5 
SI1304B01BCE0020C650963A27COCE033886FF973D 
S11304C03A7E06C75625F3CE033120F5CE004CBD47 
S11304D006DECE0045BD06E57E0194CE0061DF6FE9 
S11304E0BD06D5CE034C9D06ECCE034CBD06F34 F82 
S11304F0976B976D43976A976C86019771CE0352F9 
SI130500DF688D1DBD058 F8609368D2B803DBD0 59C 
SI1305101F324A26F496714C9771810926E639DE1A 
S113052068B006E5CE0061BD06DE966C9733BD015D 
SI13053003CE00617E06D5DE6FA600916D270B9772 
SI1305406073006A73006B73006C39CE0045BD0691 
Si130550DECE004CBD06E5963990719739966A2A2D 
S113056003730033BD0103CE0045BD06E5CE004C48 
SI130570BD060ECE0045BD060596399071973996F5 
S11305806B2A03730033BD0103CE004C7E0605866F 
S1130590069B699769966889009768398D21BD0610 
S113O5AOE5966E9733CE0315BDO6DEBDO1OOCEOO81 
S11305B020A600367E06828D06966E367E068296CC 
S11305C02C976E7F002CCF032ABD03ECCE00209620 
SI1305DO598101220C9654270F8101220496212768 
SI1305E0037E08F5CE0315399621260139CF005332 
SH305F0BD06D5CE0352DF68BD06FACE034CBD0658 
SI130600ECCE034CPD06F3860197718D82860936C4 
S113061OCF0053BD06DECE004CBD06E5BD01 005F35 
SI1306209645260496202A0153D76PD76C53D76A74 
S1130630 p D054BB0051F324A26D596714C97718175 
S11306400926C8CE006139962C367F002CCE002CAA 
SI130650A6012744B006F3CE032ABD06ECCE035201 
S1130660DF68B006FACE004CDF6F4F976C976A9730 
S113067071976D43976BBD054B7C0071 P D0504CE2E 
SI13068000619676270FB0060ECE0345B006E5BDA7 
S11306900194CE0020200136A60636B006C7CE033F 
S11306A03F8D42BDC1CD329726329720962484FOA7 
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S113068097244F9725BD014A5F962681632E0481B6 

S11306C09C2E0153D73A39DF41CE0020DF3FDE4173 

S11306DOC6077E0262DF3FCE0020DF4120F2DF4109 

SI1306E0CE002C20E7DF41CE00332OE0DF41CE00F6 

S11306F04520D9DF41CE004C20D2DF41CE00612010 

S1130700CBCE00338DC1CE005A8DCACE002CA601AB 

S113071026037E07C3BD08369672270139963A260* 

S1130720FBCE002C8DAFCE005A8DEABD0180963A17 

S113073026EACE002C8D9E2026CE03318D89860597 

S1130740972120C2CE002C8D9CCE032A8D907E0151 

SI13075094CE03078D8 FBD0180CE002CBD06D596A7 

S11307603281032F037E04BA81F92E06CE032A7E3A 

S113077006C7CE0307BD03ECCE002CBD06D5BD07CE 

SI130780D9CE0045BD06DECE004CBD06E5BD010355 

S1130790D659C1022309CE033196532BD220C696D3 

S11307AO5456250C481 648481BD655545454541BCB 

SI1307B0D6532701409B269726CE002020058D196D 

SI1307COCE004CA6007E06978DOFC E004520 F48DEA 

S11307D008BD04CCCE002020EACE0389BD06E CCEB1 

SI1307E00331BD06F3C E002CBD06 FACE0061DF6 FE7 

S11307F0CE038FDF684F976D976A976B43976C862C 

S1130800019771861636PD0537BDO54BBD051F32F0 

S11308104A26F2BD058F96714C9771810A26E439F8 

S11308208D14CE002CBD06D5CE0307BD06E5BD0153 

SI 13083094CE0020208 DCE002CBD06 F3CE032AB D10 

SI13084006E5BD010096212606CE03317E07C3CE00 

SI130850032ABD06DE96522A044O73002CC6FF5CB0 

S1130860800A24FB8B0A972D5D27OCD72048484816 

S113087048972E86029732CE0307BD06E5BD018058 

Si130880CE0053B D06D5964D276BCE004CA6002B4B 

Si 130890646 F06BD06DF.CE032ABD06E58D0103CEA8 

S11308A00045BD06D5CE004CBD06DECE032AB006EE 

S11308BOE5BD0100CE004CDF6FBD06D5CE0331BDD2 

S11308C006FA4F976C976D43976B976ACE038FDF49 

S11308D068BD07FFCE0061BD0605CE0323BD06E586 

S11308E08D0180CE002C8D06D5CE0053BD06E5BDAE 

S10D08F001037E083186FF97723978 
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* 

* 


E067 

E06B 

E0CC 

E07E 

E1RC 

E053 


★ EXTERNAL ROUTINES <MIKBUG> 
OUTHL EQU *E067 


OUTHR EQU 
OUTS EQU 
PDATA1 EQU 
INEEE EQU 
BVTE EQU 
* 

* 


*E06B 

*E0CC 

*E07E 

*E1AC 

*E055 


THE FOLLOWING IS A VERV CRUDE DRIVER USED FOR TESTING 
THE SCIENTIFIC PACKAGE. NOTE THAT THIS CODE IS NOT 
™PR*? OF PHCKHGE. THE PROGRAM IS ENTERED BT OSOO 

AND THE PROMPT "ARGUMENT" IS PRINTED. AT THIS TIME VOU 

ARE TO ENTER THE ARGUMENT IN FULL ^!^ N ^/^I^° T P ;s NT 
FORMAT <SIGN> MANTISSA* EXPONENT). AFTER THE EXPONENT IS 

* ENTERED THE PROMPT "OPERATION" IS PRINTED AND VOU TYPE 

* ONE OF THE OPERATION CODES FOUND IN THE TABLE ® E [-OW <0- 

NOTE THAT NO CHECKING FOR INPUT NOT IN IS DONE 

(WE SAID IT WAS CRUDE). AFTER TIME FOR THE CALCULATION 
HAS ELAPSED THE ANSWER WILL BE PRATED ™/^L ETERNAL 
FLOATING POINT FORMAT NORMALIZED FORM. THE OVFL fiN E! JJLEGA 
pyypQ ARE ALSO PRINTED OUT FOR VOUR INFORMATION. 

FUNCTION XtY MUST BE TREATED SPECIALLY BECAUSE NO PROVISIONS 
ARE MADE FOR ENTERING THE SECOND OPERAND <™ E ™LUE 
FOR V MUST BE INSTALLED IN VSIGN-VEX BV THE USER BEFORE 

CR THIS DRIVER USES MANV ROUTINES FROM MIKBUC <M0T - ^ R ^| MRRK> 
IT IS NOT INTENDED FOR SALE BUT IS INCLUDED HERE FOR THE 
CONVENIENCE OF THOSE WHO MAY FIND USE FOR IT. 


* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


0900 





ORG 


*900 

0900 

8E 

A0 

7F 

START 

LDS 


#*A07F 

O903 

CE 

09 

60 


LDX 


#ARGSTR 

0906 

BD 

E0 

7E 


JSR 


PDATA1 

0909 

CE 

00 

2C 


LDX 


#XSIGN 

090C 

C6 

07 



LDA 

B 

#7 

090E 

BD 

E0 

55 

LOAD 

JSR 


BYTE 

0911 

A7 

00 



STA 

A 

0/ X 

0913 

08 




INX 



0914 

8C 

00 

33 


CPX 


#XSIGN+7 

0917 

26 

F5 



BNE 


LOAD 

0919 

CE 

09 

6F 


LDX 


#OPS 

©91C 

BD 

E0 

7E 


JSR 


PDATR1 

091F 

CE 

09 

7D 


LDX 


*SINE 

0922 

BD 

El 

AC 


JSR 


INEEE 

0925 

80 

30 



SUB 

A 

**30 

0927 

48 




ASL 

A 



e. 








SCIENTIFIC FUNCTIONS PACKAGE 


TSC ASSEMBLER PAGE 


23 


0928 B7 09 

2F 


STA A 

TABOFF+1 


092B BD E0 

CC 


JSR 

OUTS 


092E EE 00 


TABOFF 

LDX 

0, X 


0930 AD 00 



JSR 

0/ X 


0932 CE 00 

20 


LDX 

#RSIGN 


0935 A6 00 


PRT 

LDA A 

0, X 


0937 BD 09 

58 


JSR 

PBVTE 


093A 08 



INX 



093B 8C 00 

27 


CPX 

#RSIGN+7 


093E 26 F5 



BNE 

PRT 


0940 BD E0 

CC 


JSR 

OUTS 


0943 96 3A 



LDA A 

OVFL 


0945 BD 09 

58 


JSR 

PBVTE 


0948 BD E0 

CC 


JSR 

OUTS 


094B 96 72 



LDA A 

NLEGAL 


094D BD 09 

58 


JSR 

PBVTE 


0950 7F 00 

72 


CLR 

NLEGAL 


0953 7F 00 

3A 


CLR 

OVFL 


0956 20 A8 



BRA 

START 


0958 36 


PBVTE 

PSH A 



0959 BD E0 

67 


JSR 

OUTHL 


095C 32 



PUL A 



095D 7E E0 

6B 


JMP 

OUTHR 


0960 0D 0A 


ARGSTR 

FDB 

$0D0F\j $0000 

0964 41 



FCC 

;ARGUMENT? ; 

096E 04 



FCB 

4 


096F 20 


OPS 

FCC 

; OPERATION? 

097C 04 


* 

FCB 

4 




* 

** OPERATION CODE TABLE 


097D 04 60 


SINE 

FDB 

SIN 

<0> 

097F 04 59 



FDB 

COS 

<1> 

0981 04 96 



FDB 

TAN 

<2> 

0983 05 B7 



FDB 

ARCSIN 

<3> 

0985 05 9C 



FDB 

ARCCOS 

<4> 

0987 06 47 



FDB 

ARCTAN 

<5> 

0989 07 5F 



FDB 

EXP 

<6> 

098B 07 BE 



FDB 

SINH 

<7> 

098D 07 C8 



FDB 

COSH 

<8> 

098F 07 CF 



FDB 

TANH 

<9> 

0991 08 36 



FDB 

NATLOG 

<: > 

0993 08 20 



FDB 

LOG10 

<; > 

0995 07 51 



FDB 

ALOG10 

<o 

0997 07 44 



FDB 

INVERS 

<«> 

0999 07 39 



FDB 

SORT 

o> 

099B 07 01 


% 

FDB 

XTOV 

<?> 




END 




NO ERROR(S) DETECTED 















